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Editorial 



Longtemps apres les Etats-Unis et nos voisins d'Outre Manche, nous voyons enfin arriver sur le Conti- 
nent les materiels compatibles Apple. Nous avons realise pour nos lecteurs un premier test du Basis 108 
dans ce numero; le numero de Septembre vena, dans la meme veine, un banc d'essai du Golem, 
apparu encore plus recemment. 

Chez Apple, l'existence du Mcintosh est maintenant confirmee : nous pouvons esperer voir ce petit here 
du Lisa debarquer en France dans moins d'un an. A quel prix ? De plus, a un horizon pareillement 
imprecise et a un prix tout aussi inconnu, nous attendons la version portable de 1' Apple II ou //e. 

Ce numero est encore tres riche et, comme les precedents, essaie de realiser la quadrature du cercle : 
fournir aux debutants de nombreux articles a leur niveau, tout en proposant beaucoup de matiere aux 
utilisateurs de niveaux intermediate et professionnel. 

Ceux qui desirent travailler sur leur micro avec des grands nombres pourront choisir entre le BASIC et 
le Pascal, avec les articles de Philippe Chemin, Michel Crimont et Gerard Michel. 

Les debutants et les nouveaux venus trouveront des renseignements utiles dans le sommaire thematique 
des huit premiers numeros de Pom's et les conseils aux debutants d Alexandre Duback, ainsi que 
dans mon article sur 1' acceleration des programmes en BASIC. lis pourront aussi analyser et utiliser la 
mini-base de donnees que nous a proposee Yves Volpi. Enfin, Gerard Michel consacre un nouvel 
article a la gestion de fichiers, dans la sene fort appreciee des "Notions de base". 

Les fanatiques de l'assembleur pourront utiliser, en guise d'aperitif, la recherche de codes binaires de 
notre fidele lecteur Guido Bettiol. Apres cela, il leur restera a s'offnr la piece de resistance, avec le 
moniteur etendu de Thierry Le Tallec; encore un programme de Pom's qui, a lui seul, vaut plus que 
le prix de I'abonnement annuel ! 

Guy Mathieu nous montre comment creer facilement des caracteres graphiques. Philippe Krepper 

nous donne le moyen de "franciser" enfin les messages d'erreur du DOS (ou SED) : il ne reste plus 
qu'a faire des erreurs pour pouvoir apprecier... 

Enfin, dans un registre plus general, vous trouverez les bancs d'essai du Basis 108 et du langage 
PILOT, ainsi que du plus recent SuperPILOT. Les nouveautes sont epluchees par Jean-Francois 
Duvivier, et Olivier Here nous presente sa demiere invention, le HBASIC. Le HBASIC est un Apple- 
soft enrichi de nombreuses structures inspirees des langages Pascal et Ada. Comme il aurait fallu consa- 
crer quasiment un numero au HBASIC a lui tout seul, nous avons decide de commercialiser celui-ci 
directement au prix de 150 francs, manuel d'utilisation compris. 

11 s'agit la du premier progiciel que nous commercialisons separement, et sur lequel 1'auteur percevra 
des droits bien merites de 10% du chiffre d'affaires TTC. Avis aux autres createurs 1 

Nous commengons a vous parler de communication avec I' interview baptisee "Alio, Questel ?", Nous 
vous en reparlerons de fagon plus etendue dans les numeros suivants. 

Etant donne la croissance sensible du courrier des lecteurs, nous pnons les lecteurs de joindre a leurs 
lettres une enveloppe timbree pour la reponse : cela nous simplifie la tSche et permet de repondre plus 
vite. 

Puisque nous en sommes aux envois postaux, nous informons les lecteurs qui ont regu en retard leurs 
envois par avion que nous n 'y sommes malheureusement pour rien. Nous avions correctement timbre 
ces envois, mais les Postes ont bane la mention "Par Avion " - apparemment du personnel peu au 
courant des tarifications. Nous esperons que cela ne se reproduira pas. 

Le nombre d'abonnes continue a augmenter. Nous en profitons pour vous rappeler que ce sont les 
abonnes qui permettent a une revue de vivre. Si done vous etes en train d'hesiter a vous abonner, ne 
tardez plus. Plus vous serez nombreux, meilleur sera le service que nous pounons vous rendre. 

Herve Thiriez 



Ont collabore a ce numero : Guido Bettiol - Philippe Chemin - Michel Crimont - Alexandre Duback - Jean-Francois Duvivier - Olivier Herz - Philippe 
Krepper - Thierry Le Tallec - Guy Mathieu - Gerard Michel - Herve Thiriez - Yves Volpi 
Redacteur : Olivier Herz - Desslns : Laurent Bidot. 

Directeur de la publication - redacteur en chef : Herve Thiriez - Siege social et abonnements : Editions MEV - 49 rue Lamartine - 78000 
Versaifles - Redaction : 59, bd de Glatigny - 78000 Versailles - Tel. : (3) 918.13.07 - Courrier des lecteurs (logiciel) : Olivier Herz - 17, rue du 
o^V,l ni L".,7 4300 Nantes - R «9ie publicltaire : Force 7 - Anne Jourdan - 39, rue de la Grange-aux-Belles - 75483 Paris Cedex 10 - Tel. : (1) 
238.66. 10 Diffusion aupres des boutiques et librairies : PSI Diffusion - BP 86 - 77402 Lagny-sur-Marne Cedex 
Composition : Telecompo - 13-15, avenue du Petit Pare - 94300 Vincennes - Tel. : 328.18.63. 
Impression : Rosay - 47. avenue de Paris - 94300 Vincennes - Tel. : 328.18.63. 
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DISQUETTES ET MINI DISQUETTES TOUTES CONFIGURATIONS 




- Duree de vie : 30 millions de revolutions 
(standard de I'lndustrie 3,5 millions de revolutions). 

- Anneau de renforcement en standard sur le 5 ] /4 ". 

- 5 1/4 " en 48 et 96 TPI, simple et double face. 

r 



Importateur exclusif : BFI ELECTRONIQUE - 9 RUE YVART - 

75015 PARIS. 
Tel. 533-01-37. 
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Mini-base de donnees 

Yves Volpi 



Le but de ces trois programmes est 
de permettre la constitution rapide 
d'une petite base de donnees, telle 
qu'un annuaire telephonique, une 
collection de disques, une bibliothe- 
que, ... 

On commence par definir la forme 
de la fiche, apres quoi il ne reste plus 
qu'a remplir le fichier. 



Creation de la fiche 

Chaque fiche est constitute par un 
certain nombre d'items (10 au maxi- 
mum pour des raisons de presenta- 
tion sur ecran). A chaque item devra 
correspondre 1' entree d'une donnee 
ayant des caracteristiques bien defi- 
nies : 

Caracteristiques de type possibles : 

1) Alphanumerique avec une lon- 
gueur maximale autorisee 

2) Numerique de longueur limitee 
(maximum autorise) 

3) Numerique entier de longueur li- 
mitee 

4) Date de la forme "JJ/MM/AA" ou 
bien "inconnue" 

5) Longueur imposee 

6) Alphanumerique de longueur im- 
posee 

7) Numerique de longueur imposee 

8) Numerique entier de longueur im- 
posee 

9) Type a definir au sein du pro- 
gramme de creation du fichier. 

Caracteristiques de longueur : c'est le 
nombre maximum de caracteres au- 
torise pour la donnee (types 1 a 3; 
pour la date, elle est imposee a 8), 



ou bien une longueur imposee a 
Fentree (types 5 a 8). 
Pour des raisons de mise en page a 
1'ecran, la longueur de l'item (libelle) 
augmentee de la longueur de la re- 
ponse ne doit pas depasser 38 carac- 
teres (tout depassement est controle 
et signale par le programme). 

Le programme demande en fin de 
traitement le nom du fichier dans le- 
quel seront stockees les caracteristi- 
ques de la fiche. Repondre ainsi 
XXX. par exemple, entraine la crea- 
tion d'un fichier "XXX MEMO". 
Apres cela, le programme de creation 
du fichier peut etre utilise. 

Creation du fichier 

1) Charger le programme 

2) Mettre en ligne 3 le nom du fi- 
chier a traiter, soit XXX dans notre 
exemple. Le programme creera le fi- 
chier des donnees sous le nom "XXX 
FICHIER". 

3) Sauver le programme, ainsi rendu 
operationnel, sous le nom "XXX" (il 
n'est pas obligatoire de reprendre le 
meme nom, mais cela soulage la me- 
moire...). 

Le programme peut bien stir etre 
modifie, notamment en rajoutant 
d'autres controles de type (emplace- 
ment prevu aux lignes 650 a 699). 
Le menu peut egalement etre 
complete pour d'autres traitements : 
il suffit d'intercaler a la ligne 20, 
avant le ">", les items du menu (lO 
au maximum). Chaque item supple- 
mentaire renvoie respectivement aux 
lignes 6000. 7000, 8000. 9000 et 
10000. 



Les principales variables utilisees 
dans ce programme sont : 



ME$() 

M$() 

F$(N,I) 

FI$() 

DO$() 

LOO 

TY() 

HT 
VT 
W 
NF 
MF 



NL 
NM 



menu 

liste des mois (inutilisee) 
fiches de dimension DI.NL 
intitules des lignes 
liste des types 
longueurs permises pour 
les entrees 

types des differentes en- 
trees 

tabulation horizontale 
tabulation verticale 
idem 

nombre de fiches 
nombre maximum de 
fiches possible (calcule 
par le programme) 
nombre de lignes par 
fiche 
idem 



Utilisation du fichier 

1) Charger le programme correspon- 
dent. 

2) Donner en ligne 3 le nom du fi- 
chier et ... a vous de travailler. Le 
programme liste ici se contente de 
lire le fichier; a vous de programmer 
les traitements (tris, impressions ...) 
que vous desirez. 

Attention a la longueur de votre pro- 
gramme, qui doit rester compatible 
avec le nombre maximum de fiches 
traitees : si des arrets de traitement se 
produisent, ils seront certainement 
dus au fameux nettoyage de la me- 
moire FRE(0), alors patience... (ou 
reportez-vous au numero 2 de Pom's 
pour remplacer cette routine de net- 
toyage). 



1 REM •»« MINI-BASE - Y VOLPI »»» 

2 REM -** CREATION DU FICHIER * <• » 

3 FFS = "XXXXXXX" 

4 KOCTET = lOOOO: REM RESERVE MEMOIRE 

5 DIM DOS(ll) 

6 DS = CHRS (13) * CHRS 

7 F1S = FFS - " MEMO":FFS 

IER" 

8 01S = DS * "OPEN" * F1SIR1S = 

AD" * FIStCIS = DS 
S:OS = DS ♦ "OPEN" 
* "READ" ♦ FFSICS = 



(4) 
= FFS 



FICH 



DS - "RE 
"CLOSE" * Fl 

ffs:rs = ds 

DS ♦ "CLOSE" 



♦ FFS:WS = DS ♦ "WRITE" FFS 
DOS ( 2 ) = "NUMERIQUE": DOS CD = "ALPHA" 

* D0S(2) :D0S(3) .= "NUMERIQUE ENTI 
ER":D0S<4) = "DATE ' JJ/MM/AA ' OU ' 
INC0NNUE'":D0S<5) = " DE LONGUEUR 

IMPOSEE" :D0S(6) = DOS(l) * DOSC5 
J:D0S<7) = D0S<2> * D0S(5) :D0S«8) 



= D0S(3> * DOS (5) 

10 D0S<9) = " A DEFINIR ET A PROGRAMMER" 

: DOS (10) = DOS < 9 ) : DOS (11) = DOS(l 
O) 

11 MUS = "300:02 02 AD 30 CO 88 DO 05 C 

E 01 03 FO 09 CA DO F5 AE OO 03 4 
C 02 03 60 ND9C6G" : FOR I = 1 TO 

LEN (MUS): POKE 511 * I, ASC ( M 
IDS (MUS.I.D) + 128: NEXT : POKE 
72,0: CALL - 144 
13 DATA JANVIER , FEVRIER , MARS 

,AVRIL ,MAI ,JUIN 

, JUILLET ,A0UT .SEPTEMBRE.O 
CTOBRE , NOVEMBRE , "DECEMBRE " : D 
IM MS(12): FOR I = 1 TO 12: READ 
MS(I): NEXT 

19 REM 

20 DATA ENTRER LES DONNEES. LIRE LES DON 
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NEES, MODIFIER LES DONNEES , SAU VER 
LES DONNEES, FINIR, > 

21 DIM MES(IO) 

22 MN = MN * l: READ MES(MN): IF MES(MN) 

< >•■>" THEN 22 

23 MN - MN - l: IF MN > 10 THEN INVERSE 

: PRINT "TROP DE LIGNES " : NORMA 
L : END 

29 REM 

35 ONERR GOTO 39 

36 PRINT DS"VERIFY"F1S 

37 GOTO 40 

39 HOME : PRINT " IL FAUT CREER LA FICH 

E ": END 

40 POKE 216.0 

41 PRINT 01S: PRINT R1S: INPUT NL: INPU 

T HT: FOR I = 1 TO NL: INPUT FIS( 
I): INPUT TY<I>: INPUT LO(I>: NEX 
T : PRINT CIS 

45 REM CALCUL N MAX FICHES 

46 PRINT "UN INSTANT SVP " : A = ( PEEK < 

111) ♦ PEEK (112) « 256) - C PEE 
K (109) + PEEK <110) » 256): FOR 

I = 1 TO NL:B = LOCI) * B: NEXT 
:MF = INT <(A - KOCTET) / (B + 7 

* NL)): REM CALCUL MAX FIC 

HES 

47 IF NF > MF THEN MF = NF 

48 DIM FS < MF , NL ) 

50 REM LIRE LE FICHIER EXISTANT 

51 ONERR GOTO 58 

52 PRINT DS"VERIFY"FFS 

53 PRINT OS: PRINT RS: INPUT NF 

56 FOR I = 1 TO NF: FOR J = 1 TO NL: IN 

PUT FS(I,J): NEXT : NEXT : PRINT 
CS: POKE 216,0 

57 REM 

58 POKE 216,0 

59 REM 

««« MENU ««« 

60 TEXT : HOME : INVERSE : HTAB 20 - L 

EN (FFS) / 2: PRINT FFS: NORMAL : 
POKE 34,2: VTAB 10 

61 FOR I = 1 TO MN: INVERSE : PRINT I ; " 

-'•;: NORMAL : PRINT MES(I): NEXT 
: PRINT :VM = PEEK (37) * 2 

62 VTAB VM: PRINT " VOTRE CHOIX ": 

63 VTAB VM: HTAB 17: CALL - 868: GET A 

S:A = VAL (AS): IF A < 1 OR A > 
MN THEN 63 

64 ON A GOTO 1000.2000,3000,4000,5000,6 

000 , 7000 , 8000 , 9000 , 10000 

65 VTAB 4: HTAB 5: PRINT "FICHE NO " ; : 

INVERSE : PRINT NF;: NORMAL : PRI 
NT " MAX = ":: INVERSE : PRINT 

MF;: NORMAL : PRINT " FICHES": R 
ETURN 

66 VTAB 4: HTAB 15: INVERSE : PRINT NF: 

: NORMAL : PRINT " FICHE";: IF NF 
> 1 THEN PRINT "S" 

67 PRINT : RETURN 

70 POKE 768, DU: POKE 769 , HZ : CALL 770: 

RETURN 

71 DU = 5:HZ = 10: GOSUB 70: RETURN 

72 POKE 777,0:DU = 45:HZ = 30: GOSUB 70 

: POKE 777.1: RETURN 

99 REM 

100 REM VERIF SI = AU TYPE 1 ALPHANUM 



110 FOR II = 1 TO LEN (AS):RS = MIDS 
(AS, 11,1): IF RS = "." THEN ER = 
l: GOTO 140 

130 NEXT 

140 RETURN 

199 REM 

200 REM VERIF SI = AU TYPE 2 NUMERIQUE 
210 NV = 0: FOR II = 1 TO LEN (AS):A = 

ASC ( MIDS (AS.II.D): IF (A < 4 
8 AND A < > 46) OR A > 57 THEN E 
R = 1 

220 IF A = 46 THEN NV = NV * 1 : IF NV > 

1 THEN ER = 1 
230 NEXT II 
250 RETURN 

299 REM 

300 REM VERIF SI = AU TYPE 3 NUMERI E 

NTIER 

310 FOR II = 1 TO LEN (AS):A = ASC ( 
MIDS (AS, 11,1)): IF A < 48 OR A > 
57 THEN ER = 1 
315 NEXT 
320 RETURN 

399 REM 

400 REM VERIF SI = AU TYPE 4 DATE 
410 IF LEN (AS) < > 8 THEN ER = l: GO 

TO 490 

415 IF AS = "INCONNUE" THEN GOTO 490 
420 BI = O: IF MIDS (AS, 3,1) < > "/" 

R MIDS (AS, 6,1) < > "/•■ THEN ER 
= l: GOTO 490 
430 AN = VAL ( STRS (19) * MIDS (AS, 7, 

2)): IF MIDS ( AS ,7,2) = "00" THE 

N BI = 1 

440 IF ( INT (AN / 4)) » 4 = AN THEN BI 
= 1 

450 JO = VAL ( MIDS (AS,1,2)):M0 = VAL 
( MIDS (AS, 4, 2) > 

460 IF JO > 31 OR JO < 1 THEN ER = 1 : G 

OTO 490 

461 IF JO > 29 AND MO = 2 THEN ER = 1 : 

GOTO 490 

462 IF JO > 28 AND MO = 2 AND BI = TH 

EN ER = l: GOTO 490 

463 IF JO > 30 AND (MO = 4 OR MO = 6 OR 

MO = 9 OR MO = 11) THEN ER = 1 : 
GOTO 490 

464 IF MO < 1 OR MO > 12 THEN ER = 1 
490 RETURN 

499 REM 

500 REM VERIF SI = AU TYPE 5 LONGUEUR 

IMPOSEE 

510 IF LEN (AS) < > LO(I> THEN ER = 1 
520 RETURN 

599 REM 

600 REM VERIF SI. = AU TYPE 1 ALPHANUM 

DE LONG IMPOSEE 

601 GOSUB 100: GOSUB 500: RETURN 

610 REM VERIF SI = AU TYPE 2 NUMERIQU 

EDE LONG IMPOSEE 

611 GOSUB 200: GOSUB 500: RETURN 

620 REM VERIF SI = AU TYPE 3 NUMERI 

ENTIER DE LONGUEUR IMPOSEE 

621 GOSUB 300: GOSUB 500: RETURN 
700 REM LECTURE 1 FICHE 

710 PRINT "FICHE NO " : : INVERSE : IF I 
< 100 THEN PRINT "0";: IF I < 10 
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THEN PRINT "0"; 
711 PRINT I: NORMAL 

720 FOR J = 1 TO NL: PRINT FIS(J);: HTA 

B HT: PRINT F*<X,J>: NEXT 
730 RETURN 

740 FOR J = 1 TO NL: PRINT FIS(J):: HTA 

B HT: PRINT FS(I,J>: NEXT : RETUR 
N 

900 REM 



««« ENTREE DES DONNEES *** 
VTAB I + VV : HTAB HT : CALL - 868: 
FOR II = 1 TO LO(I): PRINT 
NEXT : HTAB HT : GOSUB 950 
IF AS = "" AND 1=1 THEN 920 
IF ( LEN (AS) > LO(D) OR (AS = "" 
AND I > 1) THEN GOSUB 72 : AS = 
: FOR II = I TO NL: VTAB II + VV : 
CALL - 958: PRINT FIS(II): NEXT 
: GOTO 910 
ON TY(I) GOSUB 100,200.300,400,500, 

600,610,620,650 
IF ER < > THEN GOSUB 72 : ER = O: 

AS = "••: GOSUB 960: GOTO 910 
RETURN 

REM GET DES ENTREES 
952 AS = "" 

954 GET RS: GOSUB 71: PRINT RS : : IF RS 

= CHRS (13) THEN 959 
956 IF RS = CHRS (8) THEN ER = 2: GOTO 
959 

958 AS = AS ♦ RS : GOTO 954 
RETURN 

REM MESSAGES ERREUR 

VTAB 23: INVERSE : PRINT DOS(TYd)) 
;: NORMAL : GET AS: VTAB 23: HTAB 
l: CALL - 958: RETURN 

END 
REM 



910 



911 
912 



913 

914 

920 
950 



959 
960 
961 



999 
1000 



1011 



1020 
1030 



ENTREE DES FICHES ««« 

1001 HOME 

1002 VV = 6 
1010 NF = NF + 1 

IF NF > MF THEN NF = NF - 1: INVER 
SE : PRINT "CAPACITE MAXIMUM ATTE 
INTE ": NORMAL : GET AS: GOTO 60 
GOSUB 65 

VTAB 6: FOR I = 1 TO NL 
1040 VT = VV + I: VTAB VT : HTAB 1: PRINT 

FIS(I):_CALL - 958: NEXT 
1050 FOR I = 1*T0 NL: GOSUB 900: IF AS 

= THEN 1100 

1060 FS(NF,I) = AS: NEXT : GOTO 1010 
1100 NF = NF - 1 : GOTO 60 

2000 REM LECTURE FICHES 

2001 AS = "•• 
2010 HOME 



GOSUB 66 

VTAB 16: HTAB l: PRINT " <RTN> RE 
VENIR AU MENU " : PRINT : PRINT " 
TOUTES LES FICHES" 
VTAB 20: HTAB 1: CALL - 868: INPU 

T " D0NNE2 LE NUMERO " ; AS 
IF AS = "" THEN GOTO 2100 
IF AS = " = •• THEN : HOME : FOR I = 
1 TO NF: GOSUB 700: GET AS: PRINT 
: NEXT : GOTO 2100 
2040 NA = VAL (AS): IF NA < 1 OR NA > N 
F THEN 2010 
I = NA: HOME : GOSUB 700: GET AS: G 
OTO ,2010 
GOTO 60 
REM 



2020 



2030 

2031 
2032 



2050 

2100 
2999 



a propos de logiciels ... 

VENEZ POSER LES QUESTIONS QUE VOUS VOUS POSEZ 

- Les performances 

- Leurs differences 

- Les mateViels sur lesquels ils tournent 

- Les configurations necessaires ou souhaitables 

• LOGICIELS OUTILS - GENERATEURS D'APPLICATION 



DECISION 



TRAITE- 
MENT DE 
TEXTE 



LES 

FICHIERS 
LE 

GRAPHIQUE 
LE DESSIN 

LA 

COMMU- 
NICATION 



VISICALC - VISICAL 80 COL - VISICAL VF 
VISICALC VERSION ANANCEE - MULTI PLAN 
CALCSTAR-SUPERCALCMAGICALCLISACALC 

APPLEWRITER : 2 <t>- ][e - ///- 
MAGICWINDOW - PLUME - LISAWRITE 
WORDSTAR -MOTUS... 

PFS-PFS REPORT-DATAPLAN-DESKTOPPLAN 

QUIQFILE -VISIFILE -VISIDEX 

DBASE JC - LISALIST - DATASTAR - INFOSTAR 

COPYGRAPH EPSONGRAPH CEEMAC 
APPLEGRAPHICS - BUSINESS GRAPHICS 
PFS GRAPH - LISAGRAPH - LISADRAW ... 

COMEWARE -CALVADOS 

(banque donnees) 

ACCES///- IBM R E FORM ATE UR 



• LOGICIELS D'APPLICATION 

COMPTA OMEGAS - COMPTA III- COMPTA f integree 
Bl LITE MACOMPTA - MICROCIEL - ORDIOUEST 

FACTURA- FAC Hi- GESTER 

Tl ON MASTOCK - STOCK III 

STOCK COMTAINER 



PAYE 
BIBLIO 



ENQUETE 

/ 

ASSUR 



PEGASE - MAPAYE - GIPSI 
« Le documentaliste » 

Logiciel de gestion documentaire permettant 
la recherche rapide d'une fiche bibliogra- 
phique faisant reference a un livre, un 
volume, un magazine, une publication et 
comportant 7 cles d'acces (2 noms d'auteurs 
1 nom d'ouvrage, 4 mots-cles). 

Depouillement d'enquetes, questionnaires, 
sondages, etudes marketing. Deroulement 
du questionnaire - tri a plat - tris croises. 
Corrections questionnaires et reponses. 

Logiciel complet de gestion d'un cabinet 
d'assurances - tresorerie - police- risques 
fichiers assures. 



LOGICIELS SYSTEME & LANGAGE 

DOS- MEM/DOS - CP/M 

BASIC - PASCAL - FORTRAN - COBOL 



STAGES PASCAL : nous consulter 



RLTI 



39, rue Barrier 

69006 LYON (7) 824 00 03 
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3000 REM ««« MODIFICATION FICHE *«* 

3001 AS = 

3010 TEXT : HOME : GOSUB 66 
3020 VTAB 16: HTAB 1: PRINT " <RTN> RE 
VENIR AU MENU " : PRINT 

3030 VTAB 20: HTAB 1: CALL - 868: INPU 

T " NUMERO DE LA FICHE A MODIFIER 

" ; As 

3031 IF AS = •'" THEN GOTO 60 

3040 NA = VAL (AS): IF NA < 1 OR NA > N 
F THEN 3010 

3050 I = NA: HOME : GOSUB 740: PRINT :VV 
= PEEK (37) 

3060 VTAB VV: HTAB 5: CALL - 868: PRIN 
T "ON MODIFIE CETTE FICHE NO " ; NA 
;" ";: INVERSE : PRINT "0/N";: NO 
RMAL : PRINT " " ; : GET AS: IF AS 
< > "0" AND AS < > "N" THEN 306 


3070 IF AS = "N" THEN 3000 

3080 VV = PEEK (37) +1: IF NL < 10 THE 

» VV = W * 2 
3130 FOR I = 1 TO NL 

3140 VT = VV + I: VTAB VT: HTAB 1: PRINT 
FIS(I): CALL - 958: NEXT 



3150 FOR I = 1 TO NL 

3152 GOSUB 900 

3155 IF AS = MM THEN 3152 

3160 FS(NA,I) = AS: NEXT : PRINT : PRINT 
"PRESSEZ UNE TOUCHE " ; : GET AS: 
GOTO 3000 

3999 REM 

4000 REM **« SAUVER LE FICHIER »«« 

4001 HOME : VTAB 20: PRINT " UN IN 

STANT SVP " 
4010 PRINT OS: PRINT WS: PRINT NF : FOR 
I = 1 TO NF: FOR J = 1 TO NL: PRI 
NT F«<X,J>: NEXT : NEXT : PRINT C 

s 

4020 GOTO 60 
5000 REM FINIR 

5010 HOME : VTAB 20: HTAB 1: CALL - 95 
8: PRINT " AVE2 VOUS SAUVE LE FIC 
HIER ";: INVERSE : PRINT "0/N";: 
NORMAL : PRINT " ";: GET AS: IF A 
S < > "O" AND AS < > "N" THEN 5 
010 

5020 IF AS = "N" THEN 60 

5030 VTAB 20: HTAB 1: CALL - 958: PRIN 
T " AU REVOIR ": END 



Creation de la fichc 



1 DIM FIS(IO) ,L0(10) , TY ( 10) 

2 HOME : VTAB 20: INPUT "NOM DU FICHIER 

" ; FFS 

3 FFS = FFS + " MEMO" 

4 DIM DOS(ll) 

5 DS = CHRS (13) * CHRS (4) 

7 OS = DS + "OPEN" ♦ FFS:WS ■ DS + "WRIT 

E" * FFS:RS = DS + "READ" ♦ FFS : C 
S = DS + "CLOSE" ♦ FFS 

8 HOME : INVERSE : PRINT " CREAT 

ION DE LA FICHE": NORMAL : POKE 3 
4,2 

9 D0S(2) = "NUMERIQUE":D0S(1> = "ALPHA" 

* D0S(2) :D0S(3) = "NUMERIQUE ENTI 
ER":D0S(4) = "DATE' JJ/MM/AA' OU ' 
INCONNUE' " :D0S(5) = " DE LONGUEUR 

IMP0SEE":D0S(6) = D0S(1> ♦ D0S(5 
):D0S(7) = D0S(2) ♦ D0S(5) :D0S(8) 

= DOS (3) * DOS (5) 

10 D0S(9) = " A DEFINIR ET A PROGRAMMER" 

:D0S(10) = D0S(9) :D0S(11) = DOSd 
O) 

20 VTAB 10: HTAB 1: CALL - 958:1 = I ♦ 
l: PRINT " D0NNE2 LE NOM DE LA L 
IGNE NO ";I 

25 PRINT : INPUT " " ; FS ( I ) 

26 IF FS(I) = "" THEN NL = I - 1 : GOTO 

30 

27 IF I < 10 THEN GOTO 20 
2B IF I = 10 THEN NL = 10 

30 HH = 0:HT = 0: HOME : FOR I = 1 TO NL 

: PRINT FS(I):HH = LEN (FS(D): 
IF HH > HT THEN HT = HH 

31 NEXT :HT = HT + 2 

32 PRINT : PRINT "LONGUEUR MAX DISPONIB 

LE POUR L' ENTREE": PRINT : PRINT 
" DES DONNEES ";: INVERSE : PRI 
NT 39 - HT;: NORMAL : PRINT " CAR 
ACTERES" 



40 VTAB 20: HTAB 1: CALL - 868: PRINT 
" EXACT";: INVERSE : PRINT "0/N"; 
: NORMAL : PRINT " ";: GET AS: IF 
AS < > "O" AND AS < > "N" THEN 
40 

45 IF AS = "N" THEN HOME :I = 0: GOTO 

20 

46 HOME : VTAB 3: PRINT "DONNEZ LE TYPE 

DES ENTREES " : PRINT : PRINT : P 
RINT 

50 FOR I = 1 TO 11: IF I < 10 THEN PRI 
NT "O"; 

55 PRINT I;" ";DOS(D: NEXT 

60 FOR I = 1 TO NL 

61 VTAB 20: HTAB 1: CALL - 868: INVERS 

E : PRINT FS(I);: NORMAL : PRINT 
" ";: INPUT " TYPE NO " ; NO 

65 IF NO < 1 OR NO > 11 THEN 61 

66 TY(I) = NO 

67 NEXT 

70 HOME : PRINT : PRINT : HTAB 10: PRIN 

T "FORMAT DES ENTREES": PRINT : P 
RINT : FOR I = 1 TO NL: PRINT FS( 
I);: HTAB HT: PRINT DOS(TY(I)>: N 
EXT 

71 VTAB 20: HTAB 1: CALL - 868: PRINT 

" EXACT";: INVERSE : PRINT "0/N"; 
: NORMAL : PRINT " ";: GET AS: IF 

AS < > "0" AND AS < > "N" THEN 

71 

72 IF AS = "N" THEN 46 

80 HOME : PRINT "DONNEZ LA LONGUEUR MAX 
DES ENTREES " : PRINT : INVERSE : 
PRINT 39 - HT;: NORMAL : PRINT " 
CARACTERES AU MAXIMUM" 

90 VV = 6: FOR I = 1 TO NL 

92 VTAB VV + I: HTAB 1: CALL - 868: PR 

INT FS(I);: HTAB HT: INPUT " LONG 
UEUR ";N0: IF NO < 1 OR NO > 39 - 
HT THEN GOTO 92 

93 IF TY ( I ) = 4 THEN NO = 8 

96 VTAB VV + I: HTAB HT: CALL - 868: F 
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OR Q = 1 TO NO: PRINT NEXT 
:LO(I) = NO 

97 NEXT 

98 VTAB 20: HTAB 1: CALL - 868: PRINT 

" EXACT";: INVERSE : PRINT "O/N" ; 
: NORMAL : PRINT " " : : GET as: if 

AS < > "O" AND AS < > "N" THEN 

98 



99 IF AS = "N" THEN 80 

100 HOME : VTAB 20: PRINT "UN INSTANT.. 

• ■ 

110 print os: print ws: print nl: print 
ht: for i = i to nl: print fscd 
: print tyci): print loci): next 

: PRINT CS 



Utilisation du fichier 



1 REM »«« UTILISATION DU FICHIER ««« 

2 REM «»« NOM DU FICHIER LIGNE 3 »«» 

3 FFS = "XXXX" : KOCTET = 10000 

4 TEXT : HOME 

5 DS = CHRS (13) ♦ CHRS (4) 

6 F1S = FFS ♦ " MEMO": FFS = FFS * " FICH 

IER" 

7 01S = DS * "OPEN" + F1S:R1S = DS * "RE 

AD" + F1S:C1S = DS ♦ "CLOSE" + Fl 

s 

8 OS = DS + "OPEN" ♦ FFS:RS = DS + "READ 

" ♦ FFS:CS = DS + "CLOSE" + FFS:W 
S = DS + "WRITE" * FFS 

10 DATA JANVIER , FEVRIER .MARS 

, AVRIL .MAI .JUIN 

, JUILLET ,AOUT , SEPTEMBRE , OC 

TOBRE .NOVEMBRE , "DECEMBRE ": DI 
M MSC12): FOR I = 1 TO 12: READ M 
S(I): NEXT 

11 MUS = "300:02 02 AD 30 CO 88 DO 05 C 

E 01 03 FO 09 CA DO F5 AE 00 03 4 
C 02 03 60 ND9C6G": FOR I = 1 TO 

LEN (MUS): POKE 511 ♦ I, ASC < M 
IDS CMUS.I.D) ♦ 128: NEXT : POKE 

72,0: CALL - 144 

19 REH 

20 DATA TRAITEMENT NO 1 , TRAITEMENT NO 2 

, TRAITEMENT NO 3, TRAITEMENT NO 4, 
ETC , > 

21 DIM MES(IO) 

22 MN = MN ♦ l: READ MESCMN): IF MESCMN) 

< > ">" THEN 22 

23 MN = MN - l: IF MN > 10 THEN INVERSE 

: PRINT "TROP DE LIGNES ": NORMA 
L : END 

29 REM 



35 
36 
37 
39 

40 
41 



46 



47 
48 
50 
51 



ONERR GOTO 39 
PRINT DS"VERIFY"F1S 
GOTO 40 

HOME : PRINT " IL FAUT CREER LA FICH 

E ": END 
POKE 216,0 

PRINT 01S: PRINT R1S: INPUT NL: INPU 
T HT: FOR I = 1 TO NL: INPUT FIS( 
I): INPUT TYCI): INPUT LOCI): NEX 
T : PRINT CIS 

PRINT "UN INSTANT SVP ":A = C PEEK C 
111) + PEEK C112) « 256) - C PEE 
K C109) + PEEK C110) « 256): FOR 

I = i to nl:b = loci) ♦ b: next 

:MF = INT CCA - KOCTET) / CB ♦ 7 
» NL)): IF NF > MF THEN NF = MF 
IF NF > MF THEN MF = NF 
DIM FSCMF,NL) 

REM LIRE LE FICHIER EXISTANT 
ONERR GOTO 57 



52 PRINT DS"VERIFY"FFS 

53 PRINT OS: PRINT RS: INPUT NF 

56 FOR I = 1 TO NF: FOR J = 1 TO NL: IN 

PUT FSCI,J): NEXT : NEXT : PRINT 
CS: GOTO 58 

57 PRINT "IL N'Y A PAS DE ";FFS: PRINT 

SUR LA DISQUETE": END 

58 POKE 216,0 

59 REM 

««* MENU 

60 TEXT : HOME : INVERSE : HTAB 20 - L 

EN CFFS) / 2: PRINT FFS: NORMAL : 
POKE 34,2: VTAB 10 

61 FOR I = 1 TO MN: INVERSE : PRINT I;" 

-";: NORMAL : PRINT MESCI): NEXT 
: PRINT :VM = PEEK C37) * 2 

62 VTAB VM: PRINT " VOTRE CHOIX "; 

63 VTAB VM: HTAB 17: CALL - 868: GET A 

S:A = VAL CAS): IF A < 1 OR A > 
MN THEN 63 

64 ON A GOTO 1000,2000,3000,4000,5000,6 

000,7000,8000,9000,10000: REM 



CARTES D' ENTREES 
ANALOGIQQES 
COMPATIBLES - APPLE 




* Nombre d'entrees : 16SE- 8DI ou 4 entrees isolees a 250 V 

* Entree ± 10mV a ± 10 V 

* Resolution 12 - 14 - 16 bits 

* Vitesse de 15 kHz a 135 kHz avec DMA 
Options : - Gain programmable 

- Controleur de DMA 

- Programme de tests 

- Logiciels 

En standard : Horloge temps reel programmable 

DES CENTRALES DE MESURE COMPLETES 
ETUDIEES SUR CAHIER DES CHARGES 



Catalogues et notices techniques : 

sacasa 

societe applications composants actits 
el syslemes associes 

2, rue de I'Avenir 

92360 Meudon-La-Foret 

Tel. : (1) 630.68.39 - Telex : 205157 
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La division de la longueur des program- 
mes par 20. 

La possibility reelle de dessiner ses mas- 
ques de saisie ou d'impression. 
Une independance totale de la peripherie 
choisie par rapport au systeme. 
L'integralite du systeme contenu sur une carte 
memoire de 20 K. 

Une gestion de memoire de 140 K a 120 megas. 
Des utilitaires determinants 

- un generateur de programmes de ges- 
tion de fichiers permettant meme le sequentiel 
indexe multicle 

- un generateur d'ecrans. 



• CALL FN, une nouvelle commande basic, tres 
puissante, integree au systeme permettant 
I'appel des sous-programmes par noms avec 
passage de parametres et variables locales. 

• Une version multiposte assurant la mise en 
commun totale des ressources sans conflit et 
I'autonomie des postes intelligents disposant 
de leur propre unite centrale. 

• Des programmes compatibles APPLE J[ et 
APPLE ///automatiquement transferases sur 
COMMODORE 8096. 

• Et pour demain, des logiciels developpes 
aujourd'hui directement compatibles avec le 
reseau local memnet. 

in micro 
v3jnformatique 
•I i service 

3, rue Meyerbeer • 06000 NICE - Telex 461 916 F 



D.S.A. INFORMATIQUE 

5, bd Dubouchage 
06000 NICE 
Tel. (93) 85.15.96 



MICRO ALPHA SOFT 

11, impasse du Lacquet 
25200 MONTBELIARD 
Tel. (81)97.16.46 



SEEMI 

61, rue Ch. Riviere - 
44401 REZE CEDEX 
Tel. (40) 75.52.80 



MICROMEGAS 

B.P. 0701 22, rue des 3 Pierres 
69007 LYON 
Tel. (7) 861.19.52 



GEt 
C.I.C.C. 

Grove house 
the bordage 
St Peter Port 
GUERNSEY 
(0481)20155 



BENELUX 
MEGAVOLT S.A. 

Rue de Bleurmont 
32 B 

B 4920 EMBOURG 
(041)43.01.28 



Routines de calcul 

en "Format Gestion" Gerard Michel 



Applesoft n'aime guere les nombres 
qui comportent trop de chiffres : si 
vous ne l'avez pas encore constate, 
vous risquez fort d'en faire les frais 
un jour ou l'autre ! 

Ainsi, Applesoft n'affiche jamais plus 
de 9 chiffres et n'effectue pas davan- 
tage de calculs justes au-dela de cette 
limite. Jusqu'a un certain point, le 
probleme se limite a des arrondis in- 
tempestifs et souvent curieux; ensuite 
tous les nombres sont represents en 
notation scientifique (Cf pages 31 a 
33 du manuel de reference Apple II 
Plus pour plus de details). 
Mais pour certaines applications, et 
typiquement dans les problemes de 
gestion, il peut etre necessaire d'ob- 
tenir des calculs justes "au centime", 
et de voir "999.999.999,99" comme 
resultat d'une addition plutot que 
"1E09". 

L'ensemble des routines presente ci- 
apres permet de realiser des addi- 
tions et des soustractions au format 
gestion, en traitant les nombres 
comme des chaines de caracteres (ce 
qui autorise tout de meme 254 chif- 
fres par nombre !). Quelques explica- 
tions doivent suffire pour en analyser 
le mecanisme et les principes d' utili- 
sation. 

- Lignes 20 a 26 : tout nombre range 
en M$ et comportant au plus 2 deci- 
males est ajuste a un format unique 
comportant exactement 2 decimales; 
si necessaire, un zero est ajoute de- 
vant le point decimal. 
A noter que 1' utilisation des routines 
suppose que tous les nombres traites 
sont en notation anglo-saxonne et ne 
comportent effectivement pas plus de 
2 decimales. C'est evidemment dans 
la procedure de saisie des donnees, 



par l'analyse des chaines de caracte- 
res fournies, que le respect de cette 
regie doit etre controle. 

- Lignes 30 a 42 : routine d'addition. 
Les deux nombres a additionner sont 
stockes dans Zl$ et Z2$. II s'agit fi- 
nalement de realiser 1' addition 
comme a la main, chiffre par chiffre, 
en tenant compte des retenues even- 
tuelles. Ces retenues sont detectees 
lorsque la longueur de la variable re- 




sultat M$ est egale au nombre de 
chiffres traites Zl, y compris celui qui 
est en cours de traitement (lignes 38 
et 40). 

- Lignes 50 a 70 : routine de sous- 
traction. Memes principes que ci- 
dessus, mais la procedure est un peu 
plus compliquee, au debut comme a 
la fin. 

Tout d'abord, on ne peut pas tou- 
jours utiliser la fonction VAL pour 



determiner quel est le plus grand 
nombre des deux. En effet, pour des 
grands nombres qui ne differeraient 
que par les decimales, par exemple, 
la valeur retournee par VAL serait 
identique. II est done parfois neces- 
saire d' examiner le probleme chiffre 
par chiffre (lignes 50 a 53). 
Par ailleurs, il faut tenir compte des 
retenues en chalne eventuelles lors- 
que le plus petit des deux nombres 
est tres inferieur a l'autre (liqnes 66 a 
70). 

- Lignes 80 a 84 : cette routine est 
utilisee pour l'affichage des resultats 
en notation frangaise avec virgule de 
decimalisation et points pour les puis- 
sances de mille. 

- Le debut du programme (lignes 10 
a 17) fournit quelques exemples de 
demonstration avec des nombres ge- 
neres de fagon aleatoire. 



Exemple d'execution 
du programme 

Zl+Z2=8. 28161808E+10 
Zl-Z2=-3. 87844131E+10 

220158-33851.16 60800236963.33 
22015883851.16 60800296963.33 

Zl$+Z2«=82816180814.49 

82.816. 180.814,49 

Zl$-Z2*=-387844131i2.17 

-38.784.413.112,17 



REM 



... CALCUL FORMAT GESTION «»* 
*** GERARD MICHEL - POM'S »»» 



10 FOR U = 1 TO 10:21 = INT < RND ( (J ) 

» lOOOOOO » RND (1)) / 100:Z1S = 
% STRS (Z1):Z1 = INT (Zl * RND 

(1) » 1000) :21S = STRS <Z1) ♦ Zl 
S:Z2 = INT ( RND (U) » 1000000 « 
RND CD) / 100:Z2S = STRS CZ2) 
:Z2 = INT <Z2 » RND (1) « 1000) 

11 Z2S = STRS <Z2) ♦ 22S 

13 PRINT :Z1 = VAL (Z1S):Z2 = VAL (Z2 
S): INVERSE : PRINT "ZlfZ2="Zl * 
Z2: PRINT "Z1-Z2="Z1 - Z2: NORMAL 
: PRINT 

PRINT Z1S,Z2S:MS = Z1S: GOSUB 20:Z1S 
= MS: MS = Z2S: GOSUB 20:Z2S = MS 



15 



: PRINT 21 S . Z2S : PRINT : GOSUB 30 

16 PRINT "Z1S+Z2S="MS: GOSUB 80: PRINT 

: PRINT MS: PRINT : GOSUB 50: PRI 
NT "Z1S-Z2S="MS: GOSUB 80: PRINT 
: PRINT MS: PRINT : GET ZS: NEXT 

17 END 

19 REM 

«»* ROUTINE DE CALCUL ««» 

20 10 = O: FOR I = LEN (MS) TO 1 STEP 

- i:zs = mids (Ms, i,i): if zs = 

THEN IO = 1:1 = 1 
22 NEXT : IF IO = O THEN MS = MS ♦ ".00 
": RETURN 

24 IF 10 = LEN (MS) - 1 THEN MS = MS + 

"O" 

25 IF IO = 1 THEN MS = "O" + MS 
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26 RETURN 

29 REM 

**« ADDITION ««» 

30 21 = o:z = o:ms = = len (zis):h 

IS = Z1S:M2S = Z2S: IF LEN (Z2S) 

> L THEN L = LEN (Z2S):M1S = Z2 
S:M2S = ZIS 

32 FOR I = L TO 1 STEP -l:Z=Z+l:Z 

1 = Zl ♦ i:cis = mids (Mis, 1,1): 

IF CIS = THEN Zl = Zl - 1: G 

0T0 42 

34 IF Z > LEN (M2S) THEN C2S = "": GOT 
38 

36 C2S = MIDS (M2S, LEN (M2S) - Z * 1.1 
) 

38 CS = STRS ( VAL (CIS) * VAL (C2S) ) : 
IF LEN <MS) < Zl THEN MS = CS ♦ 
MS: GOTO 42 

40 CS = STRS ( VAL (CS) * VAL ( LEFTS 
(MS,1))):MS = CS + MIDS (MS. 2) 

42 NEXT :MS = LEFTS (MS, LEN (MS) - 2) 
* "." + RIGHTS (MS.2): RETURN 

49 REM 

*-« SOUSTRACTION «»« 

50 z = o:zi = o:ms = ••••:l = len (Z1S):m 

is = zis:M2S = Z2s: if len (zis) 

< > LEN (Z2S) OR VAL (ZIS) < 

> VAL (Z2S) OR ZIS = Z2S THEN 5 

3 

51 FOR 1=1 TO L: IF VAL ( MIDS (Z2S, 

1,1)) > VAL ( MIDS (ZIS, 1,1)) TH 
EN MIS = Z2S:M2S = Z1S:I = L 

52 NEXT : GOTO 54 

53 IF VAL (Z2S) > VAL (ZIS ) OR LEN ( 

Z2S) > L THEN L = LEN (Z2S):M1S 
= Z2S:M2S = ZIS 

54 FOR I = LEN (M2S) TO 1 STEP - 1:C2 

S = MIDS (M2S,I,1):Z = Z ♦ 1:21 



=21 + 1: IF C2S = "." THEN Zl = 
Zl - l: GOTO 58 

55 C2 = VAL (C2S): IF LEN (MS) = Zl TH 

EN C2 = C2 * VAL ( LEFTS (MS,D) 
:MS = MIDS (MS, 2) 

56 CIS = MIDS (M1S.L - Z + 1,1):C1 = V 

AL (C1S):C1 = CI ♦ 20 * (C2 > CI) 
:CS = STRS (CI - C2):MS = CS * M 

s 

58 NEXT :MS = LEFTS (MS. LEN (MS) - 2) 

- "." * RIGHTS (MS, 2): IF L > Z 
AND LEN (MS) = Z THEN MS = LEF 
TS (M1S,L - Z) + MS: GOTO 60 

59 IF L > Z THEN GOSUB 66 

60 IF LEFTS (MS,1) = "0" AND LEFTS (M 

S,2) < > "O." THEN MS = MIDS (M 

S,2) : GOTO 60 
62 IF MIS = Z2S AND ZIS < > Z2S THEN M 

S = "-" ♦ MS 
64 RETURN 

66 CI = VAL ( MIDS (M1S,L - Z,1)):C2 = 
VAL ( LEFTS (MS,1)):C = CI + 20 

« (C2 > ci) - C2:z = z * i:ms = 

STRS (C) + MIDS (MS, 2): IF Z = L 
THEN RETURN 
68 IF C < 10 THEN MS = LEFTS (M1S,L - 

Z) + MS: RETURN 
70 GOTO 66 

79 REM 

«»« AFFICHAGE ««« 

80 Z = l:MS = LEFTS (MS, LEN (MS) - 3) 

♦ , ♦ RIGHTS (MS,2):SS = "": I 

F LEFTS (MS,1) = THEN SS = " 

-":MS = MIDS (MS, 2) 
82 IF LEN (MS) < = 2 ♦ 4 » Z THEN MS 

= SS + MS: RETURN 
84 MS = LEFTS (MS, LEN (MS) - 2 - 4 * Z 

) ♦ "." + RIGHTS (MS, 2 + 4 « Z) : 

2=2+1: GOTO 82 



Bibliographie 



Pratique de l'Apple II, de H. 

Lilen, aux Editions Radio - 192 
pages, 80 FF. 

Comme de nombreux autres ouvra- 
ges de H. Lilen, il s'agit ici d'un ou- 
vrage clair a la presentation soignee. 
II est deja sorti depuis quelque 
temps, mais nous n'avions pas en- 
core eu 1' occasion de le consulter. 
C'est un bon livre de demarrage, 
pour ceux qui debutent complete- 
ment. Malheureusement, l'Apple He 
n'est pas encore couvert par cet ou- 
vrage : cela ne devrait rien changer 
pour 1' Applesoft; par contre, la ges- 
tion du clavier est assez differente. 

Elements de programmation, de 

Jacques Schmit, aux Editions Eyrol- 
les - 344 pages, 148 FF. 

Ce pave, a l'aide de nombreux 
exemples en BASIC, enseigne le de- 
coupement d'un programme a ecrire 
en tSches, montre comment on par- 
vient a la construction d'organigram- 



mes. La realisation par etapes d'un 
programme de comptabilite est un 
exemple approfondi presente dans 
les 90 dernieres pages. 

Je reproche a ce livre, comme a 
d'autres d'ailleurs, de ne pas prevenir 
le lecteur qu'il y a plusieurs BASICs : 
nous ne savons meme pas que le 
BASIC Microsoft est celui utilise par 
cet ouvrage. II vous faudra done 
adapter les programmes pour les 
transcrire en Applesoft. 

Clefs pour l'Apple II, de Nicole 
Breaud-Pouliquen, aux Editions du 
PSI - 143 pages, 92 FF. 

Avec le "BASIC Applesoft - Manuel 
de reference alphabetique" de Paul 
Merry edite par Mnemodyne et "Visi- 
calc sur Apple" d'Herve Thiriez aux 
Editions du PSI, ce livre est pour moi 
le troisieme "must" de tout Appleo- 
mane. 



Alexandre Duback 

Comme le souligne sa publicite, il 
s'agit d'un ouvrage destine a rester 
pres de votre Apple : il repertorie 
tous les mots-cles du BASIC, du mo- 
niteur et du DOS, la syntaxe de leur 
utilisation et les messages d'erreur. II 
vous fournit plein de bonnes adres- 
ses, et offre en prime de nombreux 
trues et astuces, dont plusieurs sont 
deja connus des lecteurs assidus de 
Pom's. 

Je n'ai que deux remarques a faire : 
j'aurais aussi aime voir un classement 
des erreurs par numero, et non seu- 
lement par ordre alphabetique. Enfin, 
mes yeux auraient apprecie des sor- 
ties sur imprimante realisees en qua- 
lite courrier, ou pour le moins avec 
un ruban neuf ... 

En conclusion, il s'agit d'un excellent 
ouvrage que je recommande chaude- 
ment a tous ceux chez qui l'Apple est 
autre chose qu'un simple element 
decoratif. 
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Recherche de codes binaires 

Guido Bettiol 



II m' arrive souvent d' avoir a analyser 
un programme en langage machine 
que je n'ai pas ecrit. Pour pouvoir 
s'y retrouver, il est necessaire de re- 
perer des codes connus. Ainsi, le 
code "20 58 FC" (HOME en Basic) 
est un bon repere, car on sait qu'a 
ce moment l'ecran est efface. Le 



code "20" (JSR) n'est pas important 
en soi, mais "58 FC" (adresse moni- 
teur $FC58) doit etre repere. 

II est tres long et fatigant d'eplucher 
le programme pour retrouver des 
codes binaires, alors qu'il suffit de 
laisser l'ordinateur travailler tout seul. 



Le programme que j'ai ecrit a cet 
effet et que je vous propose ici effec- 
tue la recherche d'un ou de deux 
octets, et imprime eventuellement le 
resultat de sa recherche. 
II est possible de fractionner la re- 
cherche en choisissant les adresses 
de debut et de fin de celle-ci. 



Recherche de codes binaires 



] LIST 
10 REM 

= RECHERCHE DE CODES BINAIRES = 
»» GUIDO B. BETTIOL - NOV 82 *» 

50 REM »* ON CHARGE LA SUBROUTINE <•» 
60 PRINT CHRS <4>"BLOAD OBJ . BCHERCHE" 
100 TEXT : HOME 

110 PRINT •'««»«« RECHERCHE DE CODES BIN 

AIRES »««««•' 
115 REM 

** ADRESSE DE DEPART *« 
120 VTAB 4: CALL - 868 : INPUT "ADRESSE 

DE DEPART: S";XS 
130 GOSUB 1000 
135 IF XS = THEN 120 

140 AH = INT (X / 256) 
150 POKE I, AH 
160 AL = X - AH * 256 
170 POKE O.AL 
200 REM 

" ADRESSE DE FIN «* 
210 VTAB 5: CALL - 86S : INPUT "ADRESSE 

FINALE: S":XS 
220 GOSUB 1000 
230 IF XS = "•• THEN 210 
240 AH = INT CX / 256) 
250 POKE 3, AH 
260 AL = X - AH * 256 
270 POKE 2.AL 
300 REM 

•« CODE RECHERCHE ** 
310 VTAB 7: PRINT "CODE RECHERCHE" 
320 VTAB 9 

330 PRINT "1 OU 2 BYTES? (1/2) ";: GET 

ZS: PRINT ZS 
340 IF ZS = "1" THEN POKE 6,0: GOTO 40 

5 

350 IF ZS = "2" THEN POKE 6,128: GOTO 
405 

360 CALL - 1059: GOTO 320 

405 VTAB 11: CALL - 868 

410 INPUT "CODE: S" • XS 

412 X1S = XS 

415 GOSUB 1000 

420 IF XS = "" THEN 405 

425 IF ZS = "1" THEN POKE 4,X: GOTO 47 


430 AH = INT (X / 256) 



440 POKE 4, AH 

450 AL = X - AH » 256 

460 POKE 5.AL 

VTAB 11: HTAB 20: PRINT "IMPRIMANTE 

? <0/N) ";: GET ZZS : PRINT ZZS 
IF ZZS = "0" THEN POKE - 16240,17 
: PR# l: print : print : print "C 
ode: s";Xis: print 

VTAB 13: PRINT "ADRESSES:": PRINT 
CALL 768 
PR# 

HTAB 1: VTAB 23: PRINT "PRESSEZ UNE 
TOUCHE POUR CONTINUER ";: GET XX 
S: GOTO 100 
REM 

CONVERSION HEX-->DEC »- 
1020 X = 

1030 IF XS = "" THEN CALL - 1059: RET 
URN 

1040 A1S = LEFTS (XS.l) 
1050 XI = ASC (A1S) 
1060 XI = XI - 48 

1070 IF XI > 9 THEN XI = XI - 7 

1080 IF XI < OR XI > 15 THEN CALL - 

1059:XS = GOTO 1000 

1090 X = X ' 16 - XI 

1100 IF LEN (XS) = 1 THEN RETURN 
1110 XS = RIGHTS <XS, LEN (XS) - 1) 
1120 GOTO 1030 



470 



480 



500 
600 
890 
900 



1000 



Programme B.CHERCHE 



•300.35A 
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Formation continue a la micro-informatique 



PHOTO GUNHILD BULL 



Tous nos informaticiens viennent de I'informatique traditionnelle, et en maitrisent totalement les langages classiques : 
Assembleur, cobol. Fortran, lis utilisent leur professionnalisme et les methodes de I'informatique pour realiser 
des applications professionnelles en micro-informatique. Nous vendons des micro-ordinateurs sans programme. 
Nous vendons aussi des micro-ordinateurs avec les programmes. II s'agit de programmes realises par la societe KA, 
dont nous garantissons la qualite et le bon fonctionnement. 

Nos formateurs enseignent I'informatique. L'enseignement de la micro-informatique necessite des formateurs pro- 
fessionnels, suffisamment de materiel pour que chacun puisse pratiquer, un support de cours couvrant non 
seulement l'enseignement diffuse, mais permettant au participant de s'auto-former apres le stage. Nous avons deja 
accueilli de nombreux stagiaires, d'horizons et de centres d'interets divers : chefs d'entreprise, universitaires, profes- 
sions liberales, informaticiens, musiciens compositeurs, retraites, cadres de grandes entreprises, revendeurs de 
micro-ordinateurs... _ 

Nous proposons 5 possibility : 



■ Stage de 2 jours 
bases de donnees. 

Comment utiliser les progiciels : 

• bases de donn6es 

• manipulateurs de nombres 
et g6n6rateurs de tableaux 

• gen6rateurs d'etats imprimis 
Application pratique 

(un 48 K + un lecteurde 
disquettes pour deux participants). 
Apres ce stage, on peut generer, 
a partirde progiciels, un 
programme totalement adapte 
a son application en moins 
d'une journ6e de travail. 
Ce stage necessite de connaitre 
la manipulation de I'APPLE II, 
ou d'avoir suivi au minimum 
la journ£e d'initiation. 

Dates 27-28 juin 
29-30 aout 
Prix 2192 Fh.t. 



■ Stage de 1 semaine 
de programmation BASIC. 

II debute par la journee 
d'initiation. 
Le stage permet 
d'assimiier la logique 
de programmation 
et de lappliquer 
(un micro-systeme 48 K 
pour 2 participants). 
En fin de stage, on sait 
etablir un programme 
de gestion de fichier avec 
consultation en temps reel. 
Ce stage ne necessite pas 
de connaissance de depart 
en informatique 

Dates 

du 20 au 24 juin 
du 18 au 22 juillet 
du22au 26 aout 
Prix 4245 F h.t. 



■ Stage 3 jours disquettes. 

Consacre a I'organisation, 
a la programmation et a 
lexploitation de fichiers 
sur disquettes magnttiques, 

a travers I'etude du Disk 
Operating System APPLE II. 
Travaux pratiques sur 
micro-systemes (un 48 K + un 
lecteur de disquettes 
pour deux participants). 
Ce stage necessite : 

• soit d'avoir suivi le stage 

de 1 semaine de programmation 
au prealable; 

• soit d'avoir une bonne 
connaissance theorique 
et une serieuse pratique 
de BASIC de I'APPLE II. 
Dates du 25 au 27 juillet 

du 17au 19 octobre 
Prix 3378 Fh.t. 



■ Journees de sensibilisation 
et stages de formation 
a Paris et en Province. 

lis sont organises 
a la demande 

• d'une instance regionale 
telle, par exemple, 

une Chambre de Commerce; 

• d'un orgamsme 
de formation 

dans le cadre d'un cycle 
plus vaste de formation ; 

• d'une entreprise. 
La societe KA 
installe le materiel 
pour la duree 

de la formation, 
assure la formation 
et fournit 

les supports de cours. 



■ Journee d'initiation - Dates : 20 juin, 18 juillet, 22 aout - Prix 773 F h.t. 
Le nombre de places pour chaque stage est strictement limite, a la fois pour la qualite de l'enseignement et par les contraintes du materiel 
Deux animateurs sont presents pour aider les participants a la realisation de leurs programmes. 
Un support de cours tres complet est remis a chaque participant. 
Pour la journee d'initiation et pour les stages, les dejeuners sont pris en commun et compris. 

rinformatique douce* 

Renseignements et inscriptions a KA - Programme detaille sur demande. 
212 rue Lecourbe 75015 Paris - Tel. 533.13.50. 
Le calendrier 83 est disponible. 

•"L'inlormatique douce" est une marque deposee de la societe KA 




Le langage interprets PILOT (Pro- 
grammed Inquiry, Learning Or Tea- 
ching), developpe en 1968 a 1'uni- 
versiste de San Francisco, est destine 
a etre employe a la realisation de 
programmes d'EAO (Enseignement 
Assiste par Ordinateur), appeles 
"leoons". Schematiquement, il s'agit 
de faire trois choses essentielles : in- 
former 1' Sieve, lire sa reponse a des 
questions et sauter a un endroit ou a 
un autre de la lecon selon cette re- 
ponse. 

En 1980, Apple Computer Inc. a pu- 
blie le systeme Apple PILOT, 
comprenant un PILOT base sur la 
derniere version du langage, le 
Common PILOT, et quatre editeurs : 

. l'editeur de texte, pour ecrire les 
programmes; 

. l'editeur de dessins, eventuellement 
appeles par le programme; 
. le generateur de caracteres. PILOT 
ecrit en effet sur la page graphique 
haute resolution, ce qui necessite des 
caracteres generes par SOFT et non 
par HARD comme pour la page 
texte; 

. l'editeur de sons et d'airs musicaux 
que le programme peut appeler. 

Le tout a ete developpe grace au 
systeme Pascal. Toutefois, pour utili- 
ser Apple PILOT, ni la connaissance 
du langage Pascal, ni la carte langage 
ne sont necessaires, bien que les 
possesseurs du Pascal Apple puis- 
sent, avec le systeme Pascal, lire les 
catalogues des disquettes PILOT et 
editer directement les textes ecrits en 
PILOT. 

Puis, l'annee derniere, Apple a pu- 
blie le systeme SuperPILOT, version 
amelioree du precedent : des instruc- 
tions ont ete ajoutees au langage, les 
editeurs sont plus performants et plus 
rapides, mais la carte langage est 
cette fois indispensable, afin d'aug- 
menter la capacite de memoire vive 
du systeme. 

Le langage PILOT 

D'un point de vue purement infor- 
matique, PILOT est un tres mauvais 
langage, qui developpe de vilaines 
habitudes chez le programmeur. Mais 
il a acquis une tres grande popularity 
car, ne possedant qu'une dizaine de 
commandes principals, il est tres fa- 
cile a apprendre pour le non-infor- 
maticien, et il est specialement etudie 
pour les applications a 1' enseigne- 
ment. Jugez-en vous-meme par 
1' etude comparative de ses instruc- 
tions avec BASIC ou Pascal (voir 
plus bas). 

Les principals commandes du lan- 
gage sont Remark, Type, Accept, 
Match, Jump, Use, End, Link, Di- 
mension, Compute... Apple PILOT 



PILOT et SuperPILOT 

au banc d' 6SS31 Olivier Herz 



et Apple SuperPILOT possedent de 
plus des instructions graphiques, so- 
nores et de gestion de fichiers, dont 
la possibility d'executer des dessins et 
des airs de musique crees par les edi- 
teurs et stockes sur disque. 

Une instruction PILOT comprend 
une etiquette eventuelle, 1' initiate ou 
les deux premieres lettres de la 
commande, un "modificateur" even- 
tuel qui change legerement le sens 
de la commande (eXact ou Single 
pour Accept, Jump pour Match...), 



un "conditionneur" eventuel qui eta- 
blit un test en rapport avec la 
commande (Yes, No, Error... ou une 
expression comme (N > 13) , le 
symbole ":" et enfin l'objet de l'ins- 
truction dont la syntaxe depend de 
cette derniere. 

Le petit programme ci-dessous ecrit 
en SuperPILOT vous permettra de 
comprendre sa syntaxe. Afin de vous 
donner les memes chances qu'a 
Champollion, je vous fournis aussi la 
traduction en BASIC et en Pascal. 



Programme en SuperPILOT Programme en BASIC Applesoft 



R: C'EST UN EXEMPLE 
T: ENTREZ VOIRE NO* 
A: $N$ 

T: BONJQUR, $N$ 
M: OLIVIERiHERZ 
JY: DEBUT 
C: 0=1982+1 

T: POM'S VOUS ADRESSE SES 

VOEUX POUR #fl 
♦DEBUT 
U: JEU 



10 REM C'EST UN EXEMPLE 
20 PRINT "ENTREZ VOIRE NCK" 
30 INPUT N$ 

40 PRINT "BONJOUR, ";N$ 

40 B0N=(N$="0LIVIER" OR N$="HERZ") 

50 IF BON THEN 100 

60 fl=1982+l 

70 PRINT "POM'S VOUS ADRESSE SES 

V0EUX POUR ";A 
100 G0SUB 1000 



Programme en Pascal 

VAR N0«: STRING: 
ANNEE: INTEGER; 
BON: BOOLEAN; 
BEGIN 

(*C'EST UN EXE?!?LE*>; 
WRIIELN ('ENTREZ VOIRE NON'); 
READLN (N0M); 

WRIIELN ('BONJOUR, '.NOW; 
BON :=(N0M=' OLIVIER') OR (MQM=' HERZ' ) ; 
IF NOT BON THEN 
BEGIN 
ANNEE:=1982+1; 

WRIIELN CP0M"S VOUS ADRESSE SES VOEtiX POUR ', ANNEE); 
END; 
JEU; 
END; 
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Fonctionnement du sys- 
teme PILOT 

Pour creer des legons, l'cnseignant a 
besoin de deux drives, le premier 
contenant la disquette du systeme 
PILOT et le second celle ou les 
legons seront ecrites. Le systeme 
boote sur un menu qui offre la possi- 
bility d'utiliser l'un des quatre edi- 
teurs, d' initialiser ou de recopier une 
disquette de leoons. Notons que, 
dans le cas de la copie, il est plus ra- 
pide d'utiliser un programme de 
copie tel que COPYA, car les dis- 
quettes, etant compatibles avec le 
Pascal, sont formatees en 16 sec- 
teurs. Toutefois, la disquette systeme 
est protegee contre la copie, mais un 
second exemplaire (BACKUP) est 
fourni avec elle. Une excellente dis- 
quette de legons de demonstration 
est jointe egalement. 

Une fois la legon ecrite, l'eleve peut 
l'etudier avec un seul drive, car la 
disquette de legons boote directe- 
ment sur un programme HELLO qui 
affiche les titres des lemons ou qui ap- 
pelle la legon (ce peut etre la legon 
elle-memej. Signalons enfin la possi- 
bility interessante pour le professeur 
de tester la legon en la faisant mar- 
cher, avec des possibilites de dever- 
minage (debugging) etendues car 
PILOT esi comme BASIC un inter- 
preter interactif. 

Un mot a propos de la documenta- 
tion: comme pour tout produit 
Apple, elle est tres bien fournie et 
tres claire, sous la forme d'un ma- 
nuel du langage (250 pages) et d'un 
manuel des editeurs (140 pages), 
tous deux en anglais. A quand la 
version franchise ? 



Les editeurs 

L'editeur de texte reprend en partie 
l'editeur du Pascal Apple, avec quel- 
ques legeres modifications : il y a 40 
colonnes au lieu de 80, inversion des 
roles de CTRL-C et ESC et enfin on 
peut obtenir les minuscules et majus- 
cules, ces dernieres etant indiquees 
en mode INVERSE, grace aux tou- 
ches CTRL-A et CTRL-Z. 

Le generateur de caracteres est iden- 
tique a celui de DOS ToolKit, ecrit 
en Applesoft. II permet de definir une 
police de caracteres, a la maniere du 
programme CRECAR de Guy Ma- 
thieu publie dans ce numero de 
Pom's. 

L'editeur de dessins possede de tres 
puissantes commandes : il permet de 
tracer des ellipses et des rectangles, 
de remplir n'importe quelle surface... 
Les dessins peuvent etre utilises 
depuis un programme PILOT, soit en 
etant redessines a la maniere dont ils 



ont ete crees, soit en etant charges 
directement, procede beaucoup plus 
rapide, mais aussi plus gourmand en 
place sur le disque. La seule ombre 
au "tableau" de cet editeur est qu'a 
chaque fois que Ton efface la der- 
niere commande entree, le dessin 
doit se redessiner entierement, ce qui 
peut etre fort long (cet inconvenient 
disparait avec le SuperPILOT). 

L'editeur de sons quant a lui permet 
d'ecrire des petits morceaux musi- 
caux monophoniques, quelques 
effets speciaux etant permis. Comme 
tout editeur de sons assez simple 
pour Apple, il est tres malcommode 
d'emploi. 



Differences entre PILOT 
et SuperPILOT 

En ce qui concerne le langage, on 
trouve dans SuperPILOT une plus 
grande variete dans le controle du 
texte a l'ecran : simple ou double 
taille, couleurs variees pour le texte 
et le fond, caracteres epais ou 
minces, combinaisons logiques entre 
les caracteres et l'ecran, possibilite 
d'animer des dessins en utilisant des 
polices de caracteres speciales, etc. 
On peut aussi noter la possibilite 
d'enregistrer automatiquement sur 
disque les progres realises par les 
eleves, un mouvement relatif -genre 
tortue-dans les commandes graphi- 
ques, et quelques autres ameliora- 
tions de moindre importance (dont la 
possibilite de commander des peri- 
pheriques audio-visuels tels que les 

Messages de la redaction 

Hard Copy Seikosha : le pro- 
gramme de hard copy presente par 
Olivier Herz dans le numero 7 de 
Pom's a ete ecrit pour la GP80M. II 
ne fonctionne pas pour la GP100. 
Un lecteur peut-il nous envoyer 
l'adaptation pour la GP100, afin que 
nous puissions la publier ? En effet, 
nous n'avons pas ce modele sous la 
main. 

Gestion de marques : nous avions 
completement oublie, quand nous 
vous avons propose 1' article de Ge- 
rard Michel sur la gestion de mas- 
ques, que celui-ci utilisait des mas- 
ques. II est en effet indispensable 
pour le faire fonctionner d'avoir la 
disquette d'accompagnement du nu- 
mero 7 ou Ton peut les trouver. 
C'est de la vente forcee involontaire ! 
Nous avons helas constate ce pro- 
bleme trop tard et n'avons pas assez 
de place pour vous donner les mas- 
ques. II vous reste deux solutions en 
ce moment : acheter la disquette du 



video-disques). Et surtout, les pro- 
grammes tournent maintenant jus- 
qu'a 10 fois plus vite, ce qui etait un 
progres rendu indispensable par la 
lenteur du PILOT original. 

L'editeur graphique quant a lui per- 
met d'inserer ou detruire un ordre 
graphique n'importe ou dans le de- 
roulement du dessin, et non plus 
seulement a la fin. On peut aussi re- 
dessiner un dessin a des fins de veri- 
fication, remettre en place les 
commandes qui avaient ete effacees, 
changer l'origine du dessin ou utiliser 
comme fond un autre dessin. De 
plus, cet editeur est maintenant plu- 
sieurs fois plus rapide dans le trace 
d'un dessin. 

Les fichiers fournis par ces editeurs 
sont pratiquement compatibles d'un 
systeme a l'autre; il y a peu de modi- 
fications a apporter pour faire tourner 
un programme PILOT en SuperPI- 
LOT. 

Signalons encore qu'on peut avec 
SuperPILOT initialiser une disquette 
de leoons non bootable afin de dis- 
poser de plus de place; il faut alors 
deux drives. On peut en outre ne re- 
copier d'une disquette a l'autre que 
les legons voulues et non obligatoire- 
ment la disquette toute entiere. 

La presence de la carte langage aug- 
mente la capacite memoire, ce qui 
etait bien utile, etant donnee la place 
prise par le systeme. 

Notons enfin qu'avec tout cela les 
deux manuels ont grossi d'environ 
un quart et que la disquette de 
legons de demonstration est un peu 
modifiee; signalons aussi la presence 
de deux disquettes de leoons Super 
Co-PILOT 1 et 2 qui constituent un 
excellent cours de SuperPILOT. Le 
petit exemple ci-dessus doit vous 
permettre d'apprecier l'apport de ce 
langage a l'EAO. 

Conclusion 

PILOT, et surtout SuperPILOT, 
constituent une excellente application 
a l'Apple du langage PILOT, grace 
aux possibilites audio-visuelles extre- 
mement performantes et tres faciles a 
mettre en oeuvre, dont le seul gros 
defaut, attenue dans le SuperPILOT, 
est la lenteur. 

Les programmes ne resident pas en 
memoire, mais sont lus sur le disque 
par petits morceaux, ce qui les rend 
extensibles a l'envi. 

Nous conseillons fortement SuperPI- 
LOT a tous ceux qui desirent realiser 
simplement et rapidement de longs 
programmes d'EAO ou des program- 
mes, interactifs ou non, illustrant les 
capacites graphiques et musicales de 
l'Apple. 
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Accelerez vos programmes 

en BASIC 



Afin d'accelerer 1' execution des pro- 
grammes en BASIC, vous pouvez 
appliquer les recettes suivantes. 



1 - Les variables 

Utiliser des variables au lieu de cons- 
tantes. 



2 - Structurer le pro- 
gramme 

Mettre les instructions d'autant plus 
haut dans le programme qu'elles ser- 
vent souvent. Ainsi, la structure "op- 
timale" d'un programme en BASIC 
est la suivante : 

1. SUBROUTINES 

D'autant plus "haut" qu'elles servent 
frequemment 

2. MENU PRINCIPAL 

Principaux choix de l'utilisateur 

3. CORPS DU PROGRAMME 

4. INITIALISATION 

Initialisation, lecture des tables de re- 
ference 

Bien entendu, le programme debute 
par un GOTO vers la phase d'initiali- 
sation, laquelle termine par un 
GOTO vers le menu principal. 



3 - Dimensionnement 
dynamique 

Dimensionner les tableaux juste a la 
taille requise, par exemple avec des 
instructions telles que DIM A(L), ou 
DIM A(L+ 50) s'il y a par exemple L 
elements dans la table et que Ton 
n' envisage pas d'en creer plus de 50 
dans une session de travail. Ainsi, 
prenant moins de place en memoire, 
votre programme tournera plus vite. 



4 - Isoler les REMs 

Prevoir de mettre les REMs sur des 
instructions separees non adressees 
par des GOTOs ou GOSUBs. II sera 
alors possible de les enlever totale- 
ment de la version executable du 
programme. 

Si 1'on tient a mettre des REMs dans 
des lignes, il faut les mettre en fin de 
ligne, car tout ce qui suit le REM est 
pris comme remarque (y compris des 
" :" de separation). 




5 - Vive les GOSUBs ! 

Utiliser les GOSUBs chaque fois 
qu'un gros segment de programme 
devrait etre reproduit en deux exem- 
plaires ou plus. 



6 - Le menage, vite 
fait... 

Tirer profit du nettoyage rapide de la 
memoire. Voir a ce titre "Faites le 



Herve Thiriez 

menage dans la memoire" (Pom's 2) 
et "Controlez le nettoyage memoire" 
(Pom's 3). 



7 - Compaction du pro- 

gramme 

Une fois le programme mis au point 
et teste, obtenez une version execu- 
table compactee (voir Courrier des 
Lecteurs de ce numero, lettre du Dr. 
Rozoy). Si vous possedez un compi- 
lateur, cela vous permettra evidem- 
ment d'accelerer sensiblement 1' exe- 
cution du programme. 

8 - Overlay dynamique 

Si votre programme est vraiment 
trop long malgre tout cela, mettez en 
place une structure d'overlay dyna- 
mique (Pom's 1). 

9 - Tableaux numeriques 

II est assez facile d'ecrire un pro- 
gramme en assembleur pour effec- 
tuer le STORE et le RECALL rapides 
de tableaux numeriques sur dis- 
quette. 

Attention a la 
renumerotation ! 

Si vous utilisez RENUMBER pour re- 
numeroter vos programmes et 
compacter les programmes en nume- 
rotant par exemple avec un pas de 
1, verifiez tout d'abord que votre RE- 
NUMBER fonctionne bien. 

Essayez de renumeroter le pro- 
gramme a une instruction : 20 A= 
20*20 

Si vous obtenez: 10 A= 20*10, 
votre RENUMBER a besoin de la re- 
paration que nous expliquons dans le 
Pom's 2. 



Nous ne pouvions pas ignorer l'arri- 
vee sur le marche francais d'un ma- 
teriel compatible Apple, d'autant qu'il 
apporte un certain nombre d' ele- 
ments nouveaux. 

De prime abord, nous decouvrons 
un materiel a la presentation profes- 
sionnelle, sans rapport avec celle de 
notre sympathique Apple II qui, par 
comparaison, donne 1' impression 
d'etre la 2CV de la micro-informati- 



Le Basis 108 a l'essai 



que. Le clavier du Basis 108 
comporte 100 touches (52 sur 1' Ap- 
ple II) dont 9 touches de deplace- 
ment, un bloc de calcul et 15 tou- 
ches de fonction. Bien entendu, les 
minuscules sont aussi disponibles. Le 
clavier est separe du bloc principal 
comportant deux lecteurs de disquet- 
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tes, ce qui est la norme des materiels 
professionnels. 

Caracteristiques techni- 
ques 

Pour commencer, nous trouvons 
dans la carte mere deux micropro- 
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cesseurs, un 6502 et un Z80. D'ori- 
gine, la RAM est de 128K, le sys- 
teme comportant en outre un 
moniteur ROM de 2K et cinq sup- 
ports pour ROM ou EPROM de 2K, 
pour un total de 10K de ROM utilisa- 
teur. 

Au niveau du graphique, beaucoup 
de possibilites sympathiques sont of- 
fertes : 

• texte en 40*24 ou 80*24. 

mode HGR mixte : 280*160 avec 
4 lignes de texte (40 ou 80 colon- 
nes) 

• mode HGR complet : 280*192 
avec 6 couleurs 

II existe trois sorties video distinctes : 
N/B, composite couleur et RGB. 

Au niveau des caracteres, il est tres 
agreable de pouvoir, avec le Basis 
108, basculer de 40 a 80 colonnes, 
et disposer de quatre polices de ca- 
racteres a l'ecran, changeables a vo- 
lonte. 

En standard, on a une sortie parallele 
8 bits, une interface E/S RS 232C, 6 
prises compatibles Apple II pour 
connexion de peripheriques, une 
prise video RGB et composee (PAL 
ou NSTC), ... 

Enfin, l'alimentation est plus puis- 
sante que sur I' Apple, ce qui devrait 
permettre d'eviter les problemes que 
Ton a quand on charge trop 1' Apple : 
il y a huit slots mais, selon le type de 
carte que Ton y met, on peut se re- 
trouver incapable de booter avec 
trois ou quatre slots occupes. Nous 
avons deja du dans certains cas aug- 
menter la puissance de nos Apples 
pour nous en sortir. 



Demarrage 

Pour des raisons de copyright, le 
Basis 108 n'est pas livre avec le 
Basic, le Pascal ou le CP/M 2.2. Par 
contre, il est aise, en suivant les ins- 
tructions fournies avec le materiel, de 
constituer les disquettes permettant 
de booter en Basic Integer, en Ap- 
plesoft ou en Pascal, le tout en 40 
ou 80 colonnes. Pour recuperer les 
Basics Integer ou Applesoft, il suffit 
de disposer de la disquette Basics (li- 
vree avec tout controleur). Le boot 
Pascal est cree a partir de la dis- 
quette Apple 1 livree avec le Pascal. 
Les instructions donnees par BMI 
pour realiser ces disquettes de boot 
sont tres claires. 



Aspects economiques 

Le Basis 108 tout nu est vendu 
16.480 F HT. En configuration de 
base (hors moniteur), il revient a 



21.341,40 F HT : Basis 108, 1 drive 
avec controleur et 1 disquette CP/M 
version 3.0. Le drive sans controleur 
est vendu 3.280 F HT. 

Le budget est par consequent sensi- 
blement plus eleve que celui requis 
par l'acquisition d'un Apple He. II est 
vrai qu'on dispose d'un equipement 
compatible CP/M dote d'une presen- 
tation et d'une finition plus profes- 
sionnelles. 

Fabrique en Allemagne, il est vendu 
depuis peu en France, ce qui ne per- 
met pas encore de tirer de conclu- 
sion sur son pouvoir de penetration 
du marche, ni sur la qualite du ser- 
vice apres-vente. 



Compatibility Apple II 

Nous avons essaye de nombreux 
programmes sur ce materiel, princi- 
palement avec les systemes d' exploi- 
tation DOS 3.3 et Pascal. II n'y a evi- 
demment pas de probleme pour faire 
tourner sur le Basis 108 les produits 
CP/M courants tels que Wordstar ou 
Calcstar. 

Nous avons commence par avoir 
exactement les memes difficultes que 
lors de nos debuts avec 1' Apple lie : 
on se trompe de touches tout le 
temps, les reflexes de frappe rapide 
sur Apple II Plus ou He ne convenant 
pas au changement de clavier. Cela 
ne doit pas etre genant une fois que 
Ton s'est accoutume a ce nouveau 
clavier. 

Avec Applewriter I, nous avons exac- 
tement le meme probleme que sur 
1' Apple He : ce logiciel recodant les 
caracteres d'ecran, les espaces sont 
tous remplaces par une demi-barre 
transversale. C'est desagreable, mais 
n'empeche pas de travailler. Par 
contre, Applewriter He ne marche 
pas, ce qui est normal puisque le 
Basis 108 est cense etre compatible 
avec l'Apple II Plus et non avec 1' Ap- 
ple lie. D'aileurs, Applewriter II fonc- 
tionne a merveille et reconnait les 
minuscules. 



Pour relancer le programme COPYA 
sans avoir a le recharger, faire RUN 
80. 

Ne pas lancer P.L.I 
Editor) quand TF " 
d'abord N( 
cas contrair., 
le nom de celui-ci sur la disquette 
devient denature avec des caractere 






de c 
jlewriter 
vec une 
lancer 



Le Pascal marche parfaitement en 40 
colonnes; nous n'avons pas eu l'oc- 
casion lors de notre essai de le tester 
en 80 colonnes, mais cela ne pose 
aucun probleme selon BMI avec le 
programme de boot adequat. 

Nous n'avons pas reussi a faire tour- 
ner Multiplan, les programmes de 
boot Apple II Plus et He de Multiplan 
n'arrivant pas a se faire reconnaitre. 
Notre bon vieux Visicalc a, par 
contre, tourne de facon complete- 
ment satisfaisante, mais seulement en 
40 colonnes. Avec quelques surprises 
cependant : il m'a fallu longtemps 
pour decouvrir que 1'arobase, indis- 
pensable pour la definition des fonc- 
tions, s'obtenait avec la touche 
HOME. 

Nous avons essaye de faire tourner 
GraForth. Le programme boote 
convenablement et tout se passe ap- 
paremment bien, sauf que toutes les 
minuscules (creees en haute resolu- 
tion) sont absentes, ce qui est 
etrange car les majuscules aussi sont 
obtenues par logiciel sur l'ecran 
HGR. 

Conclusion 

Pour celui qui a seulement besoin 
des services que peut rendre un 
Apple II Plus ou lie, il est certain que 
le Basis 108 n'est pas competitif; son 
prix est trop eleve en comparaison. 

Le Basis 108 est interessant pour les 
utilisateurs de CP/M, pour ceux qui 
connaissent avec l'Apple des proble- 
mes d'insuffisance de l'alimentation, 
pour ceux qui desirent utiliser un ma- 
teriel plus professionnel (esthetique, 
fiabilite, clavier, possibilites). C'est 
aussi interessant pour tous ceux qui 
ont des problemes de vision et ap- 
precieront la possibilite de basculer 
entre 40 et 80 colonnes, ou de choi- 
sir parmi quatre polices a l'ecran. A 
condition de bien vouloir payer le 
prix de la difference. 

Depuis notre banc d'essai de l'Ap- 
ple He, nous avons decouvert qu'il 
n'etait pas parfaitement compatible 
avec l'Apple II Plus. Certains jeux 
(surtout ceux de Programma Soft- 
ware) ne fonctionnent pas, Applewri- 
ter I marche imparfaitement, ... Sur 
l'echelle de la compatibilite Apple II 
Plus, le He vaut 9/10 et le Basis 108 
environ 8,5/10. 

Nous conseillons par consequent aux 
futurs acquereurs de Basis 108 dis- 
posant deja d'une Appleotheque de 
faire des essais avant l'achat, afin de 
verifier si leurs programmes preferes 
fonctionnent bien sur ce materiel. 

De toute facon, nous pensons que 
les utilisateurs d' Apple ont a gagner a 
la presence de materiels compatibles. 
Une saine concurrence ne peut avoir 
pour eux que des effets positifs. 
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Creation de polices de caracteres 

Guy Mathieu 



HAIFA (Pom's 5 - erratum en Pom's 
6), ainsi que le DOS ToolKit et d'au- 
tres logiciels, utilise des polices de ca- 
racteres qui fonctionnent sur ecran 
graphique haute resolution, enregis- 
trees en RAM et traitees par POKEs 
sur la page graphique. 

Les polices de caracteres sont elles- 
memes creees par des POKEs dans 
des zones memoire reservees, selon 
un principe explique dans l'article sur 
HAIFA. 

11 est plus agreable et plus pratique, 
au lieu de calculer les POKEs en 
question, de creer graphiquement, en 
grande dimension, les caracteres 
choisis, surtout si Ton desire creer 
des caracters graphiques, des symbo- 
les, ... C'est le but atteint par le pro- 
gramme CRECAR, qui permet en 
outre de creer des caracteres directe- 
ment par voie numerique, ainsi que 
de les relire. 

[.'instruction 5 fournit au programme 
l'adresse de debut de la table de ca- 
racteres (il serait evidemment possi- 
ble de l'entrer par INPUT au lance- 
ment du programme). L'adresse 
decimale correspond a la version 
48K de HAIFA. 

Le programme s'execute ensuite de 
la fagon suivante : 

Demande d'un nom de 
police 

Si un nom de police est fourni, cette 
police est chargee en memoire et 
1 utilisateur est averti du risque de sa 
destruction (de la police, bien en- 
tendu ...). Si l'on a fait RETURN 
sans fournir de nom de police, cela 
signifie que Ton cree une nouvelle 
police. 



Affichage d'un menu 

Suit l'affichage d'un menu donnant 
le choix entre les options : 

• 1 - CREER 

• 2 - LIRE 

• - ARRETER 

Nous analysons ci-dessous ce qui se 
passe lorsque chacune de ces options 
a ete selectionnee. 



Option CREER 

Un second menu nous donne le 
choix entre les possibilites : 



• 1 - NUMERIQUE (done par 
POKEs, comme avec HAIFA) 

• 2 - GRAPHIQUE 

Creation numerique 

En cas de creation numerique, la se- 
quence ci-dessous est suivie : 

• Quel caractere ? 

Repondre par un caractere du cla- 




vier. Si ce caractere est precede 
de ESC, il sera considere comme 
"minuscule", avec la definition 
donnee dans 1' article sur HAIFA. 

• Position No... (defilement de 1 a 
8) 

Fournir la valeur du POKE corres- 
pondent, un nombre de a 255. 

• Apres la demiere entree, trace du 
resultat sur 1' ecran 



• Autre caractere ? 

Si la reponse est positive (RE- 
TURN), nous retournons a la 
question "Quel caractere ?". Dans 
le cas contraire (ESC), retour au 
menu. 



Creation graphique 

En cas de creation graphique, l'ordre 
des operations est le suivant : 

• Dessin d'une grille 7*8 

• Un petit carre (cree par SHAPE) 
peut etre deplace sur la grille par 
les fleches droite et gauche. La 
bascule entre deplacement hori- 
zontal et vertical s'effectue en ap- 
puyant, comme pour Visicalc, sur 
la barre d'espacement. 

• ESC met en place un point du ca- 
ractere. Un second ESC sur un 
point deja trace efface celui-ci. 

• Quand le dessin du caractere est 
termine, RETURN. II y a emission 
d'un BEEP. En cas de RETURN 
par erreur, on peut revenir au 
mode deplacement. Si tout va 
bien, un second RETURN 
confirme la fin du dessin. 



Option LIRE 

• Position verticale (du premier ca- 
ractere a lire) ? Repondre par une 
valeur de a 19. 

• Position horizontal (idem). 

• Caractere ? 

La phrase s'inscrit a partir de la 
position designee sur 1' ecran. At- 
tention : quand on va a la ligne, il 
se passe des choses bizarres... 

• RETURN renvoie au menu princi- 
pal. 



Option ARRETER 

• Voulez-vous sauver... 

Reponse negative (ESC) : "Au re- 
voir". 

Si oui (RETURN) : donner le nom 
choisi. Si aucun nom n'est donne 
(RETURN a vide), celui de la po- 
lice lue est utilise. 

• Enregistrement de la police sur le 
disque sous le nom choisi, puis 
message d' adieu. 

Si Ton sort par megarde du pro- 
gramme, on peut y revenir par RUN, 
les polices etant stockees par des 
POKEs. 
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REM 



««« CREATION DE CARACTERES «*« 
««» GRAPHIQUES - G MATHIEU **« 



1 POKE - 16142,0 

2 LOMEM: 17000 

3 HIMEM: 36863 

4 DS = CHRS <4): DIM E2(7,8> 

5 DD = 36864 

6 TY = 7 

7 MX = 255 

8 POKE - 16142,0 

9 GOTO 10000 

10 REM CREATIOK 

15 HOME : PRINT "1 - CREATION NUMERIQUE 

16 PRINT : PRINT "2 - CREATION GRAPHIQU 



VOTRE CHOIX ? " 



17 PRINT : INPUT " 

;CR 

18 IF CR = 2 THEN GOSUB 2000 

19 IF CR = 1 THEN TEXT : HOME 

20 PRINT "QUEL CARACTERE ? " ; : A = 

21 GET ZS: PRINT ZS; 

22 IF ASC (ZS) = 27 THEN A = 32 : GOTO 

21 

23 PRINT : IF ASC (ZS) < 32 AND ASC < 

ZS) < > 13 THEN 19 
25 I = ASC (ZS) - 32 ♦ A 
30 FOR J = TO TY 

35 IF CR = 2 THEN X = N(J): GOTO 60 
40 PRINT "POSITION ",J ♦ 1;" : " ; 
50 INPUT X 



Ensei^nement Assiste par Ordinateur pour Ordinateurs 
MOPFE D'ANFICO - SILEX - ITT 2020 - APPLE II - APPLE II ♦ 
•^••^■■M COURS EN FRANCAIS 

APPLESOFT |- APPLE II ( * Carte APPLESOFT ) 

- APPLE II ♦ 

- APPLE III 

- HOPPE D'ASPICO ( * APPLESOPT en R0!J 
PALSOFT |- ITT 2020 ( . Carte PALSOFT ) V 
SILROK |- SILE3 ( de Leanord ) \ 



de BASIC 



DISKETTES 5 1/4 Pouces - DOS = DOS 3.3 - nemo 
1/ COURS 1 [ BASIC ) - Er. Frar.cais 

IRES PROGRESSIF - He necessite aucane connaissanc 
inforoatique. 

Pour debutants et non debutants. TOUT Y EST EXPLIQUE. 
20 Lecons - Environ 10 a 12 Heures de cours. 
80 Exercices commente's, expliques, rfsolus, executes, 



prealable en 



140 Questions notees sur 20, par groupes. - Reponses aux questions. 
CRAPHISiE BASSE et HAUTE RESOLUTION. 

Defilement autotnatique du Cours avec arrets et reprises possibles 
en cours de legon. 

De noaibreux exercices peuvent etre reexecutes autant de fois qua 
vous le souhaitez. Ainsi, vous pouvez obtenir les mimes re'sultats 
ou d«s resultats differents en faisant varier les d onuses d'entre'e. 
LA FIK DE CE COURS, VOUS 



SAUREZ PROGRAlllER. 



2/ COURS 2 ( BASIC ■*•)-] 



Franca is 

Philosophic gene'rale identique a celle du COURS 1 ( BASIC 
25 Logons - 12 Heures de cours minimum. 
120 Exercices commentes, expliques, resolus, executes. 
160 Questions notees sur 20, par groupes - Reponses aux questions. 




3/ COKTRATS-LCCATION du COURS BASIC pour: 

• Etablisaements d 'Ensei^nement. 
. Etablissements de Formation payante. 
. Centre de Recherches, Laboratoires, Centre d'Essais, 
Comite d'Entreprises. 



PRIX ( T.V.A. comprise ) 



. COURS 2 ( BASIC + ) 375 FF. 

Prix donnas a titre indicatif, pouvant 
etro modifies sans preavis. 



O 



E M D E U 
T A C T E 



R S, 
Z - 



AKDRE F. FINOT 
B Allee BUFFOH 
91000 EVRY-COURCOURONIJES 



OCDQj 



55 IF X > MX OR X < THEN PRINT "VALE 

UR INCORRECTE" : GOTO 40 
60 AD = DD * I » (TY + 1) + J 
70 POKE AD,X 
80 NEXT 
82 HGR 

85 LS = ZS:VT = 10:HT = 10: GOSUB 100 

90 VTAB 23: PRINT "AUTRE CARACTERE ? (R 

ET/ESC) ";: GET ZS:Z = ASC (ZS) 

91 HOME 

92 IF Z = 13 THEN 18 
95 TEXT : HOME : RETURN 

100 L = LEN (LS): FOR J = 1 TO L 

110 VI = INT (VT / 8):V2 = VT - 8 « VI 

115 VV = 8192 * VI • 40 + V2 * 128 

120 VH = VV ♦ HT + J - 1 

122 LLS = MIDS (LS.J.l) 

125 X = ASC (LLS) - 32 + A 

130 FOR I = TO TY 

135 Al = VH * I » 1024 

140 A2 = DD + X * (TY + 1) ♦ I 

145 POKE Al, PEEK (A2) 

150 NEXT I 

155 NEXT J 

165 RETURN 

999 END 

1000 REM LECTURE 

1001 HOME : VTAB 21 
1005 HGR 

1010 INPUT "POSITION VERTICALE ? ";V 

T: IF VT < OR VT > 19 THEN TEX 

T : GOTO 1001 
1020 INPUT "POSITION HORIZONTALE ? ";H 

T: IF HT < OR HT > 39 THEN TEX 

T : GOTO 1001 
1025 PRINT "CARACTERE ? (RETURN POUR AR 

RETER) " 

1030 GET LS: IF ASC (LS) = 27 THEN A = 

32: GOTO 1030 
1035 IF ASC (LS) = 13 THEN 1050 
1037 IF ASC (LS) < 32 THEN VTAB PEEK 

(37) : GOTO 1025 
1040 GOSUB 100 
1042 A = 

1045 HT = HT ♦ l: GOTO 1030 
1050 TEXT : HOME : RETURN 
2000 HGR : HCOLOR= 3 

2010 FOR I = 100 TO 160 STEP 10: HPLOT 

1,50 TO 1,120: NEXT 
2020 FOR I = 50 TO 120 STEP 10: HPLOT 1 

00,1 TO 160,1: NEXT 
2100 DATA 1,0,4,0,27,36,45,45,54,54, 

63,63,36,0 

2110 FOR I = 1 TO 14: READ V: POKE 3800 

O + I - 1 , V : NEXT I 
2120 POKE 232,112: POKE 233,148 
2130 GG = 1 : SCALE= 1: ROT= 0: POKE - 1 

6142,0 

2140 XA = 100:XX = 100:YA = 50:YY = 50 
2150 FOR I = TO 7:N(I) = O: FOR J = 

TO 8:E2(I,J) = 0: NEXT : NEXT 
2160 RESTORE 
2200 REM A:ECRIT. HR 
2210 ROT= 0: REM : SHAPE 
2220 XDRAW GG AT XA , YA 
2230 GET ZS:Z = ASC (ZS) 
2240 IF Z = 32 THEN ZD* = 1 - ZDX 
2250 IF Z = 8 THEN XX = XX - 10 * ZDSi:Y 

Y = YY - 10 * (1 - ZDX) 
2260 IF Z = 21 THEN XX = XX + 10 » ZD'S : 

YY = YY + 10 - (1 - ZD's) 
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2265 
2270 
2271 
2272 
2275 
2280 



2290 
2300 
2310 
2320 
2330 
2340 



IF 2 < > 13 THEN 2275 
GOSUB 20000 
IF FIN = 1 THEN 2340 
IF FIN < > 1 THEN 2230 
IF 2 = 27 THEN 2400 

IF 2 < > 8 AND 2 < > 21 AND 2 < 
> 32 AND 2 < > 13 AND 2 < > 27 
THEN PRINT " " : GOTO 2230 
IF XX < 100 THEN XX = 100 
IF XX > 160 THEN XX = 160 
IF YY < 50 THEN YY = 50 
IF YY > 120 THEN YY = 120 
XDRAW GG AT XA.YA 
XDRAW GG AT XX. YY 
2350 XA = XX:YA = YY 
2360 IF FIN = 1 THEN 2500 
2370 GOTO 2230 

2400 II = (YY - 50) / 10:JJ = (XX - 100) 
/ 10: IF E2(II,JJ) = 1 THEN E2 ( I 
I,JJ) = 0:N(II) = N(II) - 2 - JJ: 
SCALE= 2: ROT= 0: GOTO 2420 
2405 SCALE= 2: R0T= 0: XDRAW GG AT XX , Y 
Y 

2410 GET 2S:2 = ASC (2S) 

2420 IF 2 = 27 THEN XDRAW GG AT XX, YY: 

SCALE= 1 : GOTO 2230 
2425 SCALE= 1 

2450 N(II) = N(II) + 2 " JJ:E2(II, JJ) = 
1 

2480 GOTO 2240 
2500 VTAB 21 
2510 FIN = 
2520 RETURN 

9999 END 

10000 HOME : PRINT "CREATION/LECTURE" : 
PRINT "DE POLICES DE CARACTERES" : 

PRINT "EN HAUTE RESOLUTION" 
PRINT : PRINT "NOM DE LA POLICE ? 



10030 

10031 
10035 
10040 
10050 



10100 

10110 

10130 

10150 

10180 

10190 
10310 
10320 
10400 
12000 

12010 

12020 
12025 
12030 
12035 
12040 
12045 
12050 



INPUT "('RETURN' SI AUCUNE ) " ; NPS 
IF NPS = "" THEN 10100 
PRINT DS"BL0AD";NPS 

VTAB 10: PRINT "ATTENTION, VOUS R 
ISQUE2 DE DETRUIRE DES CARACTERES 
DE LA POLICE UTILISEE" 

PRINT " V0ULE2- VOU 



PRINT 
S" 

PRINT 
TERE" 
PRINT 



PRINT 



PRINT "1 - CREER UN CARAC 



PRINT "2 - LIRE UN OU DES 



INPUT 



CARACTERE(S) " 
PRINT : PRINT 
R) " 
PRINT 
";CH 
IF CH 
IF CH 
IF CH 



(0 POUR ARRETS 



VOTRE CHOIX ? 



THEN 12000 

1 THEN GOSUB 10 
GOSUB 1000 



' VOU LE2- VOUS SAUVER 



SI OUI - 'ESCAPE' 



2 THEN 
GOTO 10100 
HOME : PRINT 

";NPS 
PRINT "'RETURN' 

SI NON 
GET 2S:2 = ASC (2S) 
PRINT : PRINT 
IF 2 = 13 THEN 12045 
IF 2 = 27 THEN 12100 
GOTO 12020 

IF NPS = "" THEN 12060 

PRINT "'RETURN' POUR GARDER LE NO 

M, OU BIEN 



12060 PRINT "D0NNE2 LE NOM CHOISI" 
12070 INPUT " VOTRE CHOIX ? ";NPS 

12075 IF NPS = THEN PRINT " ": GO 

TO 12060 
12080 PRINT DS"BSAVE";NPS; 

00" 

12100 HOME : VTAB 12: 

U REVOIR": END 
20000 PRINT " " 
20010 GET 2S:2 = ASC (2S) 
20020 IF 2 = 13 THEN FIN = 
20030 RETURN 



,A";DD;",LS3 
HTAB 12: PRINT "A 



Message aux createurs de logiciel 

Nous commencons a commercialiser des program- 
mes en plus de la revue Pom's, la remuneration des au- 
teurs s'effectuant selon le principe des droits d'auteur. 

Bien entendu. les programmes destines a ce mode 
de distribution doivent etre des produits finis, autant par la 
qualite des programmes que par celle de la documenta- 
tion et par l'environnement visuel et sonore. 

Nous sommes prets a analyser vos propositions et 
a vous aider a transformer des idees en produits logiciels. 
Envoyez-nous vos contributions ; nous vous aiderons a 
diffuser ces programmes. 



EXEMPLE DE POLICE DE CARACTERES 
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Alio, Questel ? 



Pom's 



Nous avons encore eu peu de temps 
pour parler de communication dans 
Pom's. II s'agit pourtant la d'un sujet 
interessant, mais nous avons telle- 
ment de choses passionnantes a vous 
faire partager ! Pom's a rendu visite a 
la societe Eurequip dans laquelle tra- 
vaille Guy Mathieu, que nos lecteurs 
assidus connaissent deja bien. Nous 
vous parlerons encore de communi- 
cation dans !es numeros a venir; cet 
article de presentation joue le role 
d'eclaireur ... Nous retranscrivons ci- 
dessous les questions posees par 
Pom's et les reponses de Richard 
Haddad, collaborateur de Guy Ma- 
thieu. 

A quoi sert Questel ? 

Questel est un service permettant a 
ses utilisateurs de se relier a de nom- 
breuses bases de donnees. Nous 
l'utilisons a de multiples occasions, 
par exemple pour retrouver toutes 
les references a certains vocables ou 
a certains mots-cles dans des publica- 
tions, dans des conferences. On 
pourra ainsi rechercher tout ce qui 
existe dans une base de donnees et 
fait reference a la fois aux termes 
"ergonomie" et "micro-informati- 
que". 

Nous l'utilisons aussi pour nous ren- 
seigner sur tel ou tel sujet precis, a 
I'aide d'une des nombreuses bases 
de donnees gerees par Questel. II 
existe par exemple trois bases de 
donnees de 1'INPI permettant de se 
renseigner sur des problemes de bre- 
vets et de brevetabilite. Bien en- 
tendu, l'interet de telle ou telle base 
de donnees depend essentiellement 
du serieux avec lequel elle est mise a 
jour, et cela varie d'une base a 1' au- 
tre. Ainsi, la base de donnees Pascal 
(rien a voir avec le langage) contient 
des renseignements pluridisciplinaires 
(sciences physiques et de l'ingenieur, 
chimie pure et appliquee, sciences de 
la Vie et sciences de la Terre) et re- 
goit 500.000 nouvelles references par 
an. 

Pourquoi Questel ? 

Rien ne nous oblige a utiliser exclusi- 
vement une base de donnees pre- 
cise. Une fois que nous pouvons re- 
lier notre Apple a l'exterieur, cela 
nous autorise a communiquer avec 
tout serveur avec lequel nous aurions 
ouvert un compte. Questel est un 
serveur (il fournit un service), Prestel 
en est un autre, et ils ne sont pas les 
seuls. 



Ceci dit, il faut investir un certain 
temps pour apprendre a utiliser le 
systeme du serveur. En outre, pour 
tirer le meilleur parti d'une base de. 
donnees, il faut en etre familier, 
sinon Ton perd du temps pour trou- 
ver les reponses aux questions que 
Ton se pose, et de l'argent puisque la 
facturation depend du temps de 
connexion. 

Lorsque nous avons decide d' utiliser 
des services d'information interactifs, 
nous avons analyse ce que propo- 
saient les differents serveurs. Nous 
sommes arrives a la conclusion que 
le systeme Questel etait celui qui 
nous serait le plus utile, compte tenu 
de la grande variete de ses bases de 
donnees et de la qualite de leurs 
mises a jour. 

Les serveurs n'offrent pas necessaire- 
ment l'acces a plusieurs bases de 
donnees. Ils peuvent aussi vous pro- 
poser, comme le fait Calvados, de 
partager certaines ressources infor- 
marjques : vous obtenez ainsi au 
bout de votre Apple une puissance 
de traitement informatique qu'il ne 
pourrait vous apporter seul. 

Quelles sont les bases 
de donnees accessibles ? 

Nous avons une brochure decrivant 
26 bases de donnees proposees par 
le systeme Questel. Nous ne pou- 
vons les citer toutes; notons par 
exemple TELEDOC pour les tele- 
communications, BSI sur l'informati- 
que, LOGOS qui a memorise les dis- 
cours des personnalites politiques 
franchises en meme temps que des 
donnees relatives a l'activite politi- 
que, economique et sociale francaise. 
LOGOS vous donnera par exemple 
les references de tous les discours 
des six derniers mois dans lesquels le 
terme "lutte des classes" a ete utilise. 

La base MEETING AGENDA vous 
renseigne sur les annonces de 
congres, conferences et expositions. 
DEFOTEL garde a jour des informa- 
tions boursieres et financieres pour 
1500 societes franchises et etrange- 
res. CANCERNET s'occupe exclusi- 
vement de tout ce qui touche de 
pres ou de loin au cancer. Comme 
vous le voyez, la variete est grande. 



Comment communiquer ? 

II suffit de relier votre Apple au re- 
seau avec un modem telephonique 



ou acousrjque, ou avec la nouvelle 
carte modem integre disponible 
depuis peu sur Apple II Plus et He. 
Nous nous servons d'un modem 
acoustique, que nous possedions 
deja quand nous avons debute avec 
Questel. La carte modem integre 
n'etait pas disponible quand nous 
avons commence a "communiquer". 

Combien cela coute-t- il ? 

Ne prenons pas en compte le cout 
du modem, qui est un cout fixe et 
tient au fait de communiquer, plutot 
qu'a celui d'avoir recours aux servi- 
ces d'un serveur ou d'un autre. 
Selon la base de donnees utilisee, le 
cout par heure de connexion varie 
entre 180 F HT et 700 F HT, la tres 
grande majorite des tarifs se situant 
entre 300 F HT et 500 F HT de 
l'heure. II faut ajouter a cela le cout 
de la citation imprimee (de 0,60 F 
HT a 1 F HT en general). 
Une citation sera par exemple la re- 
ference d'un article ou d'une confe- 
rence ou les mots-cles que nous re- 
cherchons ont ete utilises. 

Peut-on faire un essai ? 

Absolument; il suffit de suivre notre 
procedure habituelle : 

• brancher la carte de communica- 
tion dans le slot 2 ; 

• introduire le programme DATA 
CAPTURE dans le drive 1 ; 

• introduire la disquette FICHIER 
dans le second drive ; 

• mettre l'Apple sous tension. 

II se trouve a present en mode termi- 
nal (TTY). Un premier menu appa- 
raft a l'ecran. 

• faire "ESC T A" pour travailler 
avec deux lecteurs 

• faire "ESC T D" pour travailler en 
full duplex 

• mettre le modem sous tension 

• mettre le modem en FULL DU- 
PLEX 

• composer le numero du reseau 
Transpac 

• a l'ecoute de la porteuse (tonalite 
indiquant le lien avec l'ordinateur 
au bout de la ligne), enfoncer le 
combine dans le modem 

• taper H (et RETURN) 

• taper 106000019 ou 106000027 
(et RETURN) pour Questel 1 

• entrer le numero de compte et le 
mot de passe. 

Ce n'est pas plus complique que 
cela. II ne reste plus qu'a utiliser 
Questel. 



Z1 
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Calcul a 12 chiffres 



Michel Crimont 



Introduction 

L' utilisation des types INTEGER ou 
REAL en Pascal ne permet pas de 
disposer de plus de 6 chiffres signifi- 
catifs, ce qui est insuffisant, ne serait- 
ce que pour les applications compta- 
bles. Le type LONGINTEGER peut 
comporter jusqu'a 36 chiffres, mais 
ne permet pas le calcul decimal. Les 
procedures et fonctions definies dans 
cet article permettent d'utiliser 12 
chiffres significatifs avec des expo- 
sals de + a - 30 pour les 4 opera- 
tions et les comparaisons. On definit 
a cet effet les constantes : 
M1NEXP0= - 30 et MAXEXPO= 
+ 30 

SIGNIFICAT!F= 12 : maximum de 
chiffres significatifs 

Le type REEL sera alors defini par : 
REEL=RECORD 

EXPO WINEXPO.. 

MAXEXPO; 
MANTISSE :INTEGER! 

SIGNIFICATIF!; 

END; 

TRESLONG= INTEGERI32! (con- 
trole des debordements) 

Les variables MAX et MAX 10 sont 
utilisees pour representer la plus 
grande mantisse et son quotient par 
10. Les autres variables ne sont utili- 
sees que par le programme principal 
servant aux essais, mais la place na- 
turelle de ces procedures et fonctions 
est dans une UNIT en librairie appe- 
lee quand le besoin s'en fait sentir. 

Remarquons que les modifications de 
MINEXPO, MAXEXPO et SIGNIFI- 
CATIF peuvent fournir des procedu- 
res et fonctions pour un calcul a 18, 
24 , ... chiffres significatifs, et a expo- 
sant different de ±30. La seule pre- 
caution a prendre sera de controler 
que la variable "DEBORDE" peut ef- 
fectivement contenir le produit 
MAX*MAX. 

Premieres procedures 

PCAR, PCHAINE, PREEL, DIAGER- 
REUR ont deja ete decrites dans de 
precedents articles de Pom's. 

La procedure INITMATH fabrique 
MAX et MAX10. 

La procedure NORMALISE aligne le 
nombre a droite en supprimant les 
zeros s'il y en a et en incrementant 
l'exposant. 

La procedure SIGNE renvoie + 1 ou 
- 1 selon le signe de TL. 

DIV10 donne l'arrondi du nombre. 



CONTROLER essaie, si necessaire, 
de "faire tenir" le nombre dans la 
definition en fonction de MAX, 
MAXEXPO et MINEXPO et renvoie 
VRAI s'il y parvient. 

Procedure EGALISEXPO 

EGALISEXPO est utilisee par d'au- 
tres procedures du systeme ; elle per- 
met d'egaliser les exposants de deux 
nombres afin de faciliter les compa- 
raisons, additions ou soustractions. 

Si, a 1' entree de la procedure, les ex- 
posants sont deja egaux, on realise 
un EXIT. Si l'exposant du premier 
nombre est plus grand, on le decre- 
mente progressivement en multipliant 



mantisse par 10, ce qui fait alors per- 
dre des chiffres significatifs. 

Fonctions de 
comparaison 

Les fonctions de comparaison EGAL, 
INFERIEUR et SUPERIEUR appel- 
ant EGALISEXPO, comparent les 
mantisses et renvoient vrai ou faux. 
Elles sont toutes trois appelees par 
COMPARE qui recoit en parametre 
Ml et M2 (les deux reels a compa- 
rer) et CA, qui est un caractere de 
comparaison "= ", "<" ou ">". II 
est bien entendu possible d'appeler 
directement chaque fonction ou en- 
core, en definissant un type FLAG= 
(SUP,EG,INF), d'ecrire COMPARE : 




la mantisse chaque fois par 10, ceci 
s'arretant soit quand une mantisse 
devient superieure ou egale a 
MAX10, soit quand un exposant de- 
vient inferieur ou egal a MINEXPO. 
Ce procede assure que l'ajustement 
se fait sans perte de chiffres significa- 
tifs. 

Si a 1' entree de la procedure l'expo- 
sant du premier nombre est plus 
grand que celui du second, on ap- 
pelle de facon recursive EGALI- 
SEXPO en inversant les deux nom- 
bres. 

Si Ton sort de la premiere boucle 
WHILE sans egalite des exposants, 
on procede de facon inverse en in- 
crementant l'exposant du deuxieme 
nombre et en divisant chaque fois sa 



FONCTION COMPARE(Ml,M2 : 
REEL) :FLAG; 

Begin 

IF EGAL(M1,M2) THEN 

COMPARE := EG 
ELSE IF SUPERIEUR(M1,M2) 

THEN COMPARE — SUP 
ELSE COMPARE := INF 

End; 

Procedures 

arithmetiques 

Les procedures arithmetiques ont 
pour role, entre autres, de controler 
que Ton ne depasse jamais les 
bornes fixees pour la representation 
de la mantisse et de l'exposant du 
resultat. Dans le cas contraire, le-dra- 
peau ERREUR est mis a 1. Toutes 



Pom's n" 8 



les procedures eliminent par avance 
les cas triviaux Ml= ou M2= 0. 

1. ADDITION 

Gestion des cas Ml = et M2= 0. 
Ensuite, egalisation des exposants. 
Definition de la variable DEBORDE 
qui contient la somme des mantisses. 
Si CONTROLER est vrai, on cree 
RESULT et on le normalise, sinon : 
erreur de debordement. 

2. SOUSTRACTION 

On transforme M2 en -M2 et on 
passe a ADDITION. 

3. MULTIPLIE 

Elimine les cas triviaux, sinon DE- 
BORDE est ega! au produit des man- 
tisses et 1 a la somme des exposants. 
Si CONTROLER est vrai, on fait RE- 
SULT et on le normalise, sinon ER- 
REUR est mis a 1. 

4. DIVISE 

Gestion des cas Ml= et M2= 0. 
Sinon, afin de garder le plus de chif- 
fres significatifs possible, la mantisse 
du dividende est multipliee par 10 
autant que faire se peut sans depas- 
ser MAX et sans que son exposant 
devienne inferieur a MINEXPO+ 
M2. EXPO. Ensuite. I prend la va- 
leur de la difference des exposants, 
puis la validite de DEBORDE et de I 
est controlee. Si tout va bien, RE- 
SULT est defini et normalise. 

Toutes ces procedures sont appelees 
par la procedure CALCUL. Elles 
peuvent etre appelees directement, 
l'appel de calcul se faisant par exem- 
ple par : 

CALCUL(R1,' + \R2,SOMME) 
ou par : 

DIVISE(Rl,R2,QUOTIENT) 



Procedure FORMATAGE 

Cette derniere procedure est un 
PRINTUS1NG defini de la maniere 
suivante : la position des differents 
chiffres est indiquee par un "#" et le 
point decimal, s'il y en a un, par le 
symbole Si l'affichage se fait a 
l'aide d'un exposant, la position de 
ce dernier sera marquee par des 
"A". 

Le format est decrit dans une chalne 
de caracteres. Tous les caracteres al- 
phabetiques de cette chaine seront 
conserves tels quels dans 1' edition, y 
compris les espaces eventuels. Si le 
premier caractere du format est. un 
"*", ce signe remplacera tous les 
blancs du format jusqu'au premier 
chiffre. Ainsi, I' utilisation du format 
'Prix=--# # .# #_Fr.' 
fera apparaitre a l'ecran 
"PRIX= — 12.75-Fr." 
celle de ' Valeur :-# # #- -Exposant 
AAA A' 



donnera "Valeur :- -12- -ExposantE 
+ 12" 

et le format '*-_####_ _• 
aboutira a "* * * * * 12- -" 

Si un nombre ne peut Stre repre- 
sents dans le format donne, il est 
remplace par des "?". 

La procedure FORMATAGE a pour 
parametres le reel Ml, le format FM 
et la chaine resultante SR. Le corps 
de la procedure detecte tout d'abord 
les erreurs, l'absence de format ou 
de chiffres dans le format. 

Ensuite, on regarde si le premier ca- 
ractere est un "*", Si oui, le booleen 
COMPLET est mis a vrai et le pre- 
mier caractere du format "*" est sup- 
prime; ensuite, LF prend pour valeur 
la longueur totale du format et Ton 
fabrique la chaine vide resultat de 
meme longueur en forgant le carac- 
tere SR!0! a la longueur du format, 
puis en remplissant cette chaine d' es- 
paces grace a la procedure FILL- 
CHAR. 

PEXPO prend alors pour valeur la 
position de 1' exposant dans le format 
et PDEC celle du point decimal dans 
le format. Si les deux existent, e'est 
la representation avec exposant qui 
est choisie. 

Les procedures EXPOSANT et DE- 
C1MALE sont appelees selon le cas 
et servent a fabriquer SNUM, chaine 
de caracteres image du nombre. S'il 
n'y a pas eu d'erreur et si NUM a 
une longueur inferieure ou egale a 
celle du format, on recopie grace a 
MOVERIGHT SNUM dans le format 
en prenant la position du chiffre de 
gauche comme repere. Si SNUM est 
trop grand, le format est totalement 
rempli par des "?". 

Ensuite, tous les caracteres autres 
que les espaces et les signes de syn- 
taxe du format sont recopies dans 
SR. Enfin, si la variable COMPLET 
est vraie. tout le debut du format jus- 
qu'au premier chiffre est rempli avec 
des "*". 

La procedure EXPOSANT est utilisee 
par FORMATAGE pour placer 1'ex- 
posant dans SR; on repere d'abord 
le dernier chiffre de droite dans le 
format par un SCAN de droite a 
gauche, et sa valeur est placee dans 
PDEC. Ensuite. on fabrique la chaine 
SNUM representant le nombre grace 
a la procedure STR et Ton calcule le 
nombre de chiffres NC permis par le 
format (position du dernier moins 
position du premier). 

Si ce nombre est plus petit que celui 
autorise, on supprime des chiffres a 
droite par : 

SNUM := COPY(SNUM,l,NC) 
puis on corrige l'exposant en conse- 
quence. On construit ensuite l'expo- 
sant par STR. On ajoute un zero a 



gauche si necessaire; on place le 
signe devant, puis le E et enfin l'ex- 
posant, transfere dans SR par un 
MOVELEFT. 

La procedure DECIMALE est appe- 
lee si le format ne comporte pas 
d'exposant. On repere d'abord deux 
cas : ou PDEC est different de zero 
et il y a des decimates a afficher, ou 
il est egal a zero et il n'y a pas de 
decimale. 

S'il y a des decimales et si le point 
decimal est le dernier signe (un point 
non suivi de "#"), le nombre de de- 
cimales NDEC est mis a zero. 

Sinon, NDEC est calcule comme dis- 
tance entre le dernier "#" (a droite) 
et le point decimal. On appelle alors 
la procedure AJUSTE qui dans toute 
la mesure du possible va ajuster le 
nombre fourni pour le "livrer" avec 
le nombre de decimales voulues. 

Apres quoi, PDEC est ramene a l'ex- 
treme droite. On cree SNUM comme 
precedemment. On ajoute le nombre 
de zeros voulu a gauche du nombre 
si necessaire et Ton place le point de- 
cimal a la place calculee. Si le nom- 
bre n'a pas de decimale, le processus 
est le meme, mais simplifie du posi- 
tionnement du point decimal. 

Le corps du programme n'a d'utilite 
que pour permettre de controler les 
procedures et fonctions, fournir un 
nombre, un operateur, un deuxieme 
nombre et reafficher 1' operation sous 
forme normalisee. Le CASE OF sert 
a departager ce qui doit etre envoye 
a CALCUL de ce qui est envoye a 
COMPARE. 

Pour le calcul, si ERREUR reste a 
zero, on ecrit le resultat normalise, 
puis on demande le format (donne 
sous forme de chaine de caracteres); 
cette demande est repetee jusqu'a 
1' entree d'un simple RETURN. 

Pour la comparaison, affichage de 
vrai ou faux selon le resultat. 
Puis fin de la boucle REPEAT sur 
"Voulez-vous continuer ?" 
A noter qu'au lieu d'utiliser directe- 
ment les caracteres "+", "*", 
etc., il peut etre plus simple de defi- 
nir un type : 

OPERATEUR = (PLUS.MOINS, 
FOIS.QUOT.EG, 
SUP, INF) 

cela sera plus elegant, plus "Pascal", 
mais peut-etre moins lisible. C'est 
pour cette raison que j' utilise directe- 
ment les caracteres dans ce pro- 
gramme. 

Par ailleurs, COMPARE pourrait tres 
facilement s'enrichir de "< = ", ">=" 
ou "<>" avec la creation des fonc- 
tions LE, GE et NE. FORTRAN n'est 
pas si loin... 
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PROGRAM MATH12 ; 



CONST 
TYPE 



VAR 



MINEXPO 
REEL 



TRESLONG 
CHOIDECA 

R1.R2, 

RESULTAT 

MAX.MAXIO 

DEBORDE 

SRESULT 

ERREUR 

OP 

FORMAT 



= -30; 



MAXEXPO 



= 30; 



SIGNIFICATIF = 12; 



=RECORD 

EXPO IMINEXPO. .MAXEXPO; 

MANTISSE: INTEGER [SIGNIFICATIF] 
END; 
= INTEGER C32] ; 
=SET OF CHAR; • 



: REEL; 

: INTEGER [SIGNIFICATIF] 

: TRESLONG; 

: STRING ; 

: INTEGER; 

: CHAR ; 

: STRING ; 



TiEMS ?.' I'WNEE PE/V/iE*E It- I 



PCAR(BONSET:CHOIDECA) :CHAR; 
: CHAR ; 
: BOOLEAN; 



function 
var CH 

BON 
begin 
repeat 

READ < KEYBOARD , CH ) ; 

if EOLN (KEYBOARD) then CH:=CHR(13) 
BON:=CH in BONSET; 
if not BQN then WRITECCHRC7) ) 
else if CH in [' '..CHR(130>] 
until BON; 
PCAR: =CH 
end ; 

PCHAINE < LONGMAX : INTEGER ; 
; STRING [1] : 
: STRING; 
; INTEGER; 




then WRITE(CH) 



BONSET : CHOIDECA ; var S:STRING) 



procedure 
var SI 

CONT 
I 

begin 

Si: = ' '; cont: = "; 

repeat 

if LENGTH (CONT) =0 then SI [ 1] : =PCAR ( BONSET* [CHR < 13 ) ] ) 

else if LENGTH (CONT >=LONGMAX then SI [ 1] : =PCAR ( [CHR < 13) , CHR (8 ) ] ) 
else SI [1] : =PCAR( BONSET* CCHRC13) ,CHR<8)] ) ; 
if SI CI] in BONSET then CONT : =CONCAT (CONT , SI ) 
else if S1[1]=CHR(8) then 
begin 

WRITE(CHR(8) , ' ',CHR(8)); 
DELETE ( CONT , LENGTH (CONT ) , 1 ) 
end ; 

until SI [1] =CHR(13) ; 

if LENGTH (CONT) <>0 then S:=CONT else WRITE(S) 
end ; 

PROCEDURE INITMATH; 
VAR BOUCLE : INTEGER; 
BEGIN 

MAX: =0; 

FOR B0UCLE:=1 TO SIGNIFICATIF DO MAX : =MAX« 10*9 ; 
MAX10:=MAX DIV 10 
END; 

PROCEDURE DIAGERREUR(ER: INTEGER) ; 
BEGIN 

CASE ER OF 

1 :WRITE( 'D)bordement' ) ; 
2:WRITE( 'Trop petit'); 
3:WRITE( 'Division par zero') 
END 
END; 
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PROCEDURE NORMALISE ( VAR RL : REEL) ; 
BEGIN 

WITH RL DO 

BEGIN 

IF MANTISSE=0 THEN EXPO:=0 
ELSE BEGIN 

WHILE ( (MANTISSE- (MANTISSE DIV 10)»10)=0) AND ( EXPO<MAXEXPO ) DO 
BEGIN 

MANTISSE: =MANTISSE DIV 10; EXP0:=EXP0-1 
END 
END 

END 
END; 

FUNCTION SIGNE(TL:TRESLONG) : INTEGER; 
BEGIN 

IF TL<0 THEN SIGNE:=-1 ELSE SIGNE:=1 
END; 

PROCEDURE DIV10<VAR M : TRESLONG ) ; 
BEGIN 

IF M>0 THEN M:=(M+5) DIV 10 ELSE M:=(M-5) DIV 10 
END; 

FUNCTION CONTROLER ( VAR TL : TRESLONG ; VAR NP : INTEGER ): BOOLEAN ; 
BEGIN 

WHILE ( (SIGNE(TL) »TL>MAX) AND < NP<MAXEXPO > ) OR 
( (SIGNE(TL) *TL>0) AND (NP<MINEXPO) ) DO 

BEGIN 

DIVIO(TL); NP:=NP-1 
END; 

WHILE < (SIGNE(TL) «TL<MAX) ) AND <NP>MAXEXPO> DO 
BEGIN 

TL:=TL*10; NP:=NP-1 
END; 

CONTROLER: = ( NP> =MINEXPO ) AND < NP< =MAXEXPO ) AND (SIGNE(TL) «TL<=MAX) 
END; 

PROCEDURE PREEL ( VAR RL : REEL) ; 
VAR SRL : STRING; 

DEC.XP : BOOLEAN ; 

I,NP : INTEGER ; 

MOINS,BON :BOOLEAN; 
BEGIN 

REPEAT 

RL.EXPO:=0; RL . MANTISSE : =0; NP:=0; SRL:=''; DEBORDE : =0 ; 

DEC : =FALSE; MO INS : = FALSE ; XP:=FALSE; BON : =TRUE; 

PCHAINE(SIGNIFICATIF+4, C '+',*-*, 'O' . . ' 9' E' 3 ,SRL) ; 

IF SRL=" THEN EXIT (PREEL) ; 

IF SRLC13='-' THEN MOINS:=TRUE; 

l:=l; 

WHILE < I<= LENGTH (SRL) ) AND NOT XP DO 
BEGIN 

IF SRLCI1-'.' THEN DEC : =TRUE 

ELSE IF SRLCI3='E' THEN XP:=TRUE 
ELSE IF SRLCID IN CO'.. '9'] THEN 
BEGIN 

DEBORDE :=DEBORDE« 10+ (0RD(SRLC13 ) -ORD( 'O' ) ) ; 
IF DEC THEN RL . EXPO : =RL . EXPO- 1 
END; 

x:-i+i 

END; 

IF MOINS THEN DEBORDE := -DEBORDE ; MO INS : = FALSE; 

WHILE I<= LENGTH (SRL) DO 

BEGIN 

IF SRLCI3='-' THEN MOINS:=TRUE 

ELSE IF SRLCI3 IN CO'.. '9'] THEN NP : =NP* 10 + ( ORD ( SRL C 13 > -ORD ( ' ' ) ) ; 



11*1*1 

END; 

IF MOINS THEN NP:=-NP; 
NP: =NPfRL.EXPO; 

IF CONTROLER (DEBORDE , NP ) THEN 
BEGIN 

RL . MANTISSE : = DEBORDE ; RL.EXPO:=NP; NORMALISE < RL) ; 
END ELSE BEGIN WRITELN ('**** ERREUR' >; BON : =FALSE END 
UNTIL BON 
END; 
(»!») 

(* FONCTIONS DE COMPARAISON *) 
(«#») 

PROCEDURE EGALISEXPOCVAR Ml , M2 : REEL) ; 
BEGIN 

IF Ml .EXP0=M2.EXP0 THEN EXIT ( EGALISEXPO ) ; 
IF Ml .EXP0>M2.EXP0 THEN 

WHILE (Ml .EXP0>M2.EXP0) AND ( Ml . EXPO>MINEXPO ) 

AND (SIGNE(M1.MANTISSE)«M1.MANTISSE<MAX10> DO 

BEGIN 

Ml .EXPO: =M1 .EXPO- 1 ; Ml . MANTISSE : =M1 . MANTISSE* 10 
END ELSE EGALISEXP0(M2,M1) ; 

WHILE (Ml .EXP0>M2.EXP0) AND < M2 . EXPO<MAXEXPO ) AND ( M2 . MANTISSEOO) DO 
BEGIN 

M2.EXP0:=M2.EXP0+1; M2 . MANTISSE : =M2 . MANTISSE DIV 10 
END; 
END; 

FUNCTION EGAL ( Ml , M2 : REEL) : BOOLEAN ; 
BEGIN 

EGALISEXP0(M1,M2) ; EGAL : =M1 . MANTISSE=M2 . MANTISSE 

END; 

FUNCTION SUPERIEUR(M1,M2:REEL) : BOOLEAN; 
BEGIN 

EGALISEXPO ( Ml, M2) ; SUPER I EUR : =M1 . MANTISSE>M2 . MANTISSE 

END; 

FUNCTION INFERIEUR(M1,M2:REEL) :BOOLEAN; 
BEGIN 

EGALISEXPO ( Ml, M2) ; INFER I EUR := Ml . MANTISSE<M2 . MANTISSE 

END; 

FUNCTION C0MPARE(Ml:REEL;CA:CHAR;M2:REEL) :BOOLEAN; 
BEGIN 

CASE CA OF 

' = ' ".COMPARE: =EGAL(M1,M2) ; 
'<' :C0MPARE:=INFERIEUR(M1,M2) ; 
'>' : COMPARE : =SUPERIEUR( Ml, M2) ; 
END 
END; 



(« PROCEDURES DE CALCUL *) 
<»#«) 

PROCEDURE ADDITI0N<M1,M2:REEL;VAR RESULT : REEL ) ; 
BEGIN 

IF Ml .MANTISSE=0 THEN RESULT: =M2 

ELSE IF M2.MANTISSE=0 THEN RESULT:=M1 
ELSE BEGIN 

EGALISEXPO < Ml , M2 ) ; DEBORDE : =M1 . MANTISSE + M2 . MANTISSE ; 
IF CONTROLER (DEBORDE , Ml . EXPO) THEN 
BEGIN 

RESULT . EXPO : =M1 . EXPO; RESULT . MANTISSE : =DEBORDE ; 
NORMALISE (RESULT) 
END ELSE ERREUR : =1 ; 

END 

END; 
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PROCEDURE S0USTRACTI0N(M1.M2:REEL;VAR RESULT : REEL ) ; . 
BEGIN 

M2. MANTISSE: = -M2 . MANTISSE ; ADDITION (Ml . M2 , RESULT ) 
END; 

PROCEDURE MULT I PL IE (Ml , M2 : REEL : VAR RESULT : REEL ) : 

VAR I : INTEGER: 

BEGIN 

IF (Ml .MANTISSE=0> OR ( M2 . MANTISSE=0 > THEN 
BEGIN 

RESULT. MANTISSE: =0; RESULT . EXPO : =0 
END ELSE 
BEGIN 

DEBORDE :=M1.MANTISSE*M2. MANTISSE; I : = M 1 . EXPO- M2 . EXPO : 

IF CONTROLER (DEBORDE, I) THEN 

BEGIN 

RESULT. EXPO: =1; RESULT . MANTISSE : =DEBORDE ; NORM ALI SE ( RESULT ) 
END ELSE ERREUR:=1 
END 
END; 

PROCEDURE DIVISE(M1.M2:REEL;VAR RESULT : REEL ) ; 

VAR I : INTEGER: 

BEGIN 

I : =M1 .EXPO; 

IF M2.MANTISSE = THEN ERREUR : = 3 
ELSE IF Ml .MANTISSE=0 THEN 
BEGIN 

RESULT. MANTISSE: =0; RESULT. EXPO : =0 

END ELSE 
BEGIN 

WHILE (SIGNE(M1 .MANTISSE) »M1 . M ANTISS£< MAX10 ) AND 
(I>MINEXP0*M2.EXP0> DO 

BEGIN 

Ml .MANTISSE: =M1 .MANTISSE* 10; I: =1-1; 
END; 

I : =I-M2.EXP0; 

DEB0RDE:=M1. MANTISSE DIV M2. MANTISSE; 
IF CONTROLER (DEBORDE, I) THEN 
BEGIN 

RESULT. MANTISSE: =DEBORDE; RESULT . EXPO := I ; NORMALISE ( RESULT ) 
END ELSE ERREUR: =2; 

END 

END; 

PROCEDURE CALCUL(M1 : REEL ; CA : CHAR ; M2 : REEL ; VAR RESULT : REEL ) ; 
BEGIN 

ERREUR : =0 ; RESULT . EXPO : =0 ; RESULT . MANTISSE : =0 ; 
CASE CA OF 

: ADDITION (Ml ,M2, RESULT) ; 
'-' :S0USTRACTI0N(M1,M2, RESULT) ; 
'*' :MULTIPLIE( Ml, M2, RESULT) ; 
' / ' : DI VISE (M1,M2, RESULT) ; 
END; 
END; 

( * ! » ) 

(« FORMATAGE DU RESULTAT «> 
(«#«) 

PROCEDURE FORMATAGE ( Ml : REEL; FM : STRING ; VAR SR:STRING>; 
VAR LF,PEXPO,I,NC,PDEC,NDEC : INTEGER ; 

SNUM.SEXPO : STRING ; 

COMPLET : BOOLEAN: 

PROCEDURE AJUSTE; 
BEGIN 

WITH Ml DO 

BEGIN 



IF EXPO=-NDEC THEN EXIT ( A JUSTE ) : 

WHILE <EXPO>-NDEC) AND < MANTISSE<MAX 10 ) AND ( EXP0>MINEXP0 ) DO 
BEGIN 

MANTISSE: =MANTISSE » 10; expo:=expo-i 
END ; 

WHILE (EXPO<-NDEC) AND (MANTISSE>0) AND < EXP0<MAXEXP0 ) DO 
BEGIN 

MANTISSE: =MANTISSE DIV 10; EXP0:=EXP0+1 
END; 

IF EXPOO-NDEC THEN ERREUR : = 1 
END; 
END; 

PROCEDURE EXPOSANT; 
BEGIN 

PDEC:=LF*SCAN(-LF.='#' .FMCLF3 ) * 1 ; NC : =PDEC-POS ( ' # ' , FM ) ; 
STR (Ml .MANTISSE, SNUM) ; 
IF NC< LENGTH (SNUM) THEN 

IF (MAXEXP0>=M1 . EXPO + LENGTH (SNUM) -NC) THEN 
BEGIN 

M1.EXP0:=M1.EXP0*LENGTH(SNUM)-NC; SNUM : =COPY ( SNUM , 1 , NC ) ; 
END ELSE BEGIN ERREUR := 1 ; EXIT ( EXPOSANT ) END; 
STR( ABS(M1 .EXPO) , SEXPO) ; 

WHILE LENGTH (SEXP0X2 DO SEXPO : =CONCAT ( ' ' , SEXPO ) ; 
IF M1.EXP0<0 THEN SEXPO : =CONCAT ('-', SEXPO ) 

ELSE SEXPO: =CONCAT( '+' .SEXPO) ; 
SEXPO: =CONCAT('E' .SEXPO) ; MOVELEFT ( SEXPO C 1 3 ,SRCPEXP03 .4) ; 
END; 

PROCEDURE DECIMAL; 
BEGIN 

IF PDECOO THEN 

BEGIN 

IF PDEC = LF THEN NDEC:=0 ELSE NDEC : =SCAN ( LF-PDEC ,<>'#' , FM CPDEC+ 13); 

AJUSTE; PDEC: = PDEC +NDEC+1; STR (Ml . MANTISSE , SNUM) ; 

WHILE ( LENGTH ( SNUM ) <NDEC+1 ) DO SNUM : =CONCAT (' SNUM ) ; 

INSERT ( ' .' , SNUM , LENGTH (SNUM ) -NDEC+ 1 ) ; 
END ELSE 
BEGIN 

NDEC:=0; PDEC : =LF + SCAN ( -LF , = ' # ' , FM CLF3 ) +1 ; AJUSTE; 
STR (Ml .MANTISSE, SNUM) 
END 
END; 

BEGIN (« FORMATE «) 

ERREUR : =0 ; COMPLET : = FALSE ; SR : = " ; 

IF ( FM= ' ' ) OR (POS('#' ,FM)=0) THEN EXIT ( FORMATAGE ) ; 

IF FMC13='«' THEN 

BEGIN 

COMPLET: =TRUE; FM : =COPY ( FM , 2 , LENGTH ( FM ) - 1 ) 
END; 

LF : =LENGTH ( FM ) ; 
( «SR-« ) 

SR [O] : =CHR(LF) ; 
( -SSR + * ) 

FILLCHAR ( SR C 1 3 ,LF, ' '); PEXPO : =POS ( ' , FM) ; PDEC : = POS ( ' . ' , FM ) ; 

IF PEXPOOO THEN EXPOSANT ELSE DECIMAL; 

IF ( PDEC -POS ( ' # ' , FM ) >= LENGTH (SNUM) ) AND (ERREUR=0) 

THEN MOVERIGHT (SNUM [13 , SR CPDEC-LENGTH ( SNUM ) 3 , LENGTH ( SNUM ) ) 

ELSE FILLCHAR ( SR C13,LF,'?'); 
FOR l:=l TO LF DO IF N0T(FMCI3 IN C ' " ' 3 ) THEN SR C 1 3 : =FM C 1 3 

l:=l; 

IF COMPLET THEN 

WHILE (NOT (SRCI3 IN I ' ' . . ' 9 ' , ' ? ' 3 ) ) AND (K = LF) DO 
BEGIN SRCI3 : = '*' ;l:=I + l END; 

END; 

BEGIN (» PROGRAMME PRINCIPAL POUR ESSAI *) 
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INITMATH ; 
REPEAT 

PAGE(OUTPUT) ; 

WRITEC 'Programme d"essai -calcul a 12 chiffres' ) ; WRITELN : WRITELN : 
WRITEC'Nl : ' ) ; PREEL ( Rl ) ; 

WRITE (' Op : ' > ;OP:=PCAR( ['+' , '-','*', '/','=','<' '>'])■ 
WRITE < ' N2 : ' ) ; PREEL (R2 ) ; WRITELN ; 

WRITE ( Rl . MANTISSE , 'E' , Rl . EXPO, OP, R2 . MANTISSE , ' E' , R2 . EXPO ' =' ) • 

case op of 

'+','-','*','/' :begin 

CALCUL (Rl, OP, R2,RESULTAT) ; FORMAT :='? ' ; 

IF ERREUR=0 THEN 

BEGIN 

WRITELN ( RESULT AT . MANTISSE , 'E' , RESULTAT . EXPO ) • 

WHILE FORMATO" DO 

BEGIN 

FORMAT : = ' ' ; WRITE (' Format : '); 
PCHAINE(20, f ' . . CHR ( 126 ) J .FORMAT) ; 
IF FORMATO ' ' THEN 
BEGIN 

WRITE C -->'>• 

FORMATAGE (RESULTAT, FORMAT, SRESULT) : WRITELN (SRESULT) 
END 

END 

END ELSE DI AGERREUR ( ERREUR > 
END; 

END- < ' > ' :IF C0MPAR E<R1-0P,R2) THEN WRITE ( ' vrai ' ) ELSE WRITE ( ' faux ' ) ; 

WRITELN ; WRITE < ' Cont inuer (O/N) ? ')• 
UNTIL PCAR (['0','N','o','n']) IN C ' N ' ' ' n ' 3 
END. 



CARTE INTERFACE GRAPHIQUE HAUTE 
RESOLUTION AVEC OU SANS BUFFER 




DUMPLING-GX est une carte d'interface parallele graphique qui per- 
met d'etablir une communication intelligent^ entre un APPLE II et la plu- 
part des imprimantes. La selection d'imprimante se fait par DIP Switch. 
EPSON - C-ITOH - NEC - OKIDATA - CENTRONICS -TALLY - APPLE 

De simples commandes permettent de gerer la mise en page et les 
fonctions graphiques, entre autres: 

• Longueur de ligne et de page • Marges gauche et droite ■ Copie d'ecran 
texte - Simulation de graphiques en continu • Copie d'ecran graphique 
page 1 et/ou 2 • Inversion (noir/blanc) • Rotation 90° • Double format • Dou- 
ble frappe 

DUMPLING-64 offre toutes les possibility de DUMPLING-GX avec en 
plus un buffer/spooler de 64 K. Principales caracteristiques : 

• Reconnaissance automatique de la taille du buffer • Multiples copies 
d'ecran consecutives • Compression des espaces • Pause immediate 
ou differee • Possibility de commande a distance • 

Compatible CP/Mou Pascal. 



DUMPLING-GX = 1650FHT 
DUMPLING-16 = 2390FHT 



DUMPLING-32 = 2580 FHT 
DUMPLING-64 = 3390 FHT 
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IS PipeLine " 

UN NOUVEAU CONCEPT 

PIPELINE est une memoire-tampon intelligente qui intro- 
duit un nouveau concept revolutionnaire - RANDOM 
ACCESS PRINTING - qui permet: 

■ de composer, reorganiser, dupliquer les donnees a im- 
primer; 

• de combiner texte. tableaux, graphiques dans une meme 
impression ; 

■ de generer automatiquement des etats personnalises a 
partir de lettres, memos, rapports ; 

• de recopier le document un nombre quelconque de fois. 
Le mode RAP permet ainsi de faire travailler ensemble 
plusieurs programmes pour donner une impression 
combinee. 

Le mode FIFO imprime dans I'ordre des entrees (mode 
conventionnel). 

Le mode BYPASS permet la suspension d'une impres- 
sion longue pour editer une impression courte. 
IS PIPELINE est facilement extensible de 8 K a 128 K. II 
s'intercale entre tout ordinateur et imprimante avec In- 
terface parallele type Centronics. 




YOUR 
PRINlfR 



YOUR COMPUTER 
OR TERMINAL 




PipeLine 
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Deux ans de Pom's : 



sommaire thematique 



Beaucoup de nouveaux lecteurs nous posent des ques- 
tions dont les reponses se trouvent dans les numeros de 
Pom's deja parus. Nous avons done decide de reprendre 
ici le sommaire, classe par themes, des huit premiers nu- 
meros de Pom's. II est a noter que les quatre premiers 
numeros ont ete reedites dans le recueil de Pom's numero 
1, que Ton peut commander directement aux Editions 
MEV. 



Materiels et cartes 

Inverseur DOS 3.2-DOS 3.3 

Survol de 1' Apple /// 

Les memoires de masse 

La carte M/DOS 6502 a l'essai 

Banc-test de la carte Legend 128K DE 

La souris de Lisa 

L' Apple //e a l'essai 

Le Basis 108 a l'essai 



Logiciels commerciaux 

Visicalc et Applesoft 

P.L.E. : le Program Line Editor 

C.R.A.E. : Co-Resident Applesoft 1 Editor 

Les utilitaires de documentation : 

Dakin 5 - Apple Doc - DOS Tool Kit 

Applewriter - Easywriter - Magic Window 

Les editeurs de texte 

CCA DMS - PFS - Visifile - DB Master 

Bases de donnees sur Apple 

CX Multigesrion a l'essai 

The Last One a l'essai 

C.O.R.P. a l'essai 

Visicalc et traitement de texte 

Le cours de BASIC Applesoft Andre Finot 

Multiplan a l'essai 

PILOT et SuperPILOT a l'essai 

Presentation du H-BASIC 



Graphiques 



'Apple 



Graphiques : de l'lTT 2020 a 
Les adresses du graphique 
Applications de grahique H.R. 
Controlez le nettoyage memoire 
Routine de presentation graphique 
Creation de tables de formes 
Creation graphique en Pascal 
Logiciel graphique en Pascal 
Graphique, quand tu nous tiens... 
Graphiques et logique 
Hard Copy Seikosha GP80 
Un programme de fondu enchaine 
Creation de caracteres graphiques 



Jeux et loisirs 

Un programme aide-memoire 
Changez votre poignee de jeu 
La lecon de calcul 
Le jeu de la vie 

Reponse au concours de Pom's 
Robotwar 



Numero 

l 

2 
4 
4 
5 
7 
7 
8 



1 

1 
1 

2 

2 

5 
5 
6 
6 
7 
7 
7 
8 
8 



1 
1 

2 
3 
3 
4 
5 
6 
7 
7 
7 
7 
8 



1 
1 
2 
2 
4 
4 



Tortue Ampersand 
Le loto, e'est facile... 
Cryptographie a clef publique 
Les quatre ponts 

Programmes utilitaires 

Des instructions en une lettre 

Deplacement du programme en assembleur 

Analyse du contenu des slots 

Reparez votre APPEND 

Reparez votre RENUMBER 

Faites le menage dans la memoire 

Sprechen Sie DOS ? 

S.H.LAM : une routine bien pratique 

Un exemple de HELLO 

Copie d'ecran texte 

Personnalisez vos disquettes 

Un programme de TRACE selective 

Un catalogue general en Pascal 

Chargez vite vos fichiers binaires 

Un PRINT USING d'interet general 

Le clavier magique 

Transfert d' Applesoft vers EXEC 

Un programme de HELLO complet 

Un analyseur de syntaxe 

Dump Pascal 

Gestion de masques en BASIC 
FID, MUFFIN et DEMUFFIN 
Boot P.L.E. +CR.A.E. 
Francisez le DOS 
Calculs en format gestion 
Recherche de codes binaires 
Le Pascal a 12 chiffres 

Pour faire son apprentissage 

Programmer en Pascal 
Formatez vos programmes 
Apprentissage de 1' assembleur 
Les fichiers EXEC 

Notions de base (chargement de binaire) 

Notions de base : les fichiers 

Notions de base : INPUT generalise 

Ergonomie des programmes 

Des programmes relogeables 

Creation de fichiers EXEC 

Mini-base de donnees 

Notions de base : gestion de fichiers 

Accelerez vos programmes en BASIC 

Conseils aux debutants 

Pour devenir expert sur Apple 

Overlay dynamique 

Incursion dans les mysteres du DOS 

3 secondes pour trier 

Conversion Pascal/BASIC/Pascal 

Les codes ASCII epluches 

Les arcanes du moniteur Apple /// 

Le moniteur etendu 

Et tant d'autres articles... 

Des boucles a s'arracher les cheveux 
Communication grace a 1' Apple 
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1 

1 ** 
1,2 ** 

2 ** 

2 
2 

2 ** 

3 
3 
3 
4 
2,3,4 
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4 
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6 
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8 
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Communiquez grace au format DIF 4 

Un Apple a la clinique 4 

La 7me W.C.C.F. 4 

La programmation facilitee 5 

HAIFA : un amper-interpreteur complet 5 

Tableaux de taille declaree en Pascal 6 

Un generateur 7 

Un programme de test universel 7 

Effacement de directory en Pascal 7 

Alio, Questel ? 8 

Micro-informations : les nouveautes 8 

Saisie de reels en Pascal 8 

* Article non repris dans le Recueil 1 de Pom's 
** Parus dans la rubrique Trues et Astuces 



Remarques 

De nombreux articles pouvaient etre classes dans plusieurs 
categories : ainsi HAIFA est a la fois un outil de creation 
graphique, un merveilleux utilitaire, l'occasion de devenir 
un expert sur Apple (si Ton analyse les 150 secteurs en 
source Lisa 2.5 !). Nous nous sommes ef forces, dans les 
cas de ce genre, de placer 1' article dans la categorie a la- 
quelle il pouvait le plus s' identifier. 

D' autre part, il ne faut pas oublier que, mgme si la 
comprehension d'un programme peut vous sembler im- 
possible, cela ne vous empeche pas de l'utiliser. On utilise 
couramment des jeux, Visicalc, ou du traitement de texte, 
tout en etant pour la plupart d'entre nous incapables de 
comprendre le programme qui en est la base. 



Conseils aux debutants Duback 



Vous venez d'acquerir un Apple lie ou un Apple /// flam- 
bant neuf et vous vous trouvez confronte au premier pro- 
bleme : comment faut-il disposer le materiel ? 



Installation 

En effet, sur la plupart des publicites et brochures. Ton voit 
le moniteur pose sur les deux lecteurs de disquettes, alors 
que le manuel du DOS recommande explicitement d'eloi- 
gner les lecteurs d'un recepteur de television. 

En fait, il n'y a pas peril en la demeure. La meilleure 
preuve est que le lecteur incorpore de l'Apple /// se trouve, 
par la force des choses, proche du moniteur ! 

Les seules fois ou nous avons pu constater un probleme, 
le moniteur avait une base en plastique. Cela se manifes- 
tait par des I/O ERRORs qui ont disparu quand on a de- 
place les lecteurs de disquettes, pour les mettre a droite de 
l'Apple. 



Precautions d'utilisation 

La principale regie a respecter est la suivante : ne jamais 
mettre ou enlever une carte dans un appareil allume, e'est 
la meilleure fagon de griller la carte. 

Le bouton d'allumage de l'Apple a toujours ete son point 
faible, surtout en ce qui concerne l'Apple II Plus. II est plus 
prudent (et plus simple) de brancher toutes les prises 
(Apple, moniteur, imprimante, accessoires eventuels) sur 
un ratelier de prises, l'ideal etant d'en avoir un muni d'un 
interrupteur. On laisse alors tous les appareils "allumes" en 
permanence, sauf l'imprimante qu'il est inutile de faire 
chauffer pour rien. 

Ces precautions etant prises, on peut faire pratiquement ce 
que Ton veut. II faut e\xe tres fort pour faire "griller" un 
Apple par programme : nous savons le faire, mais ne vous 
dirons pas comment ... 



Les disquettes 

A manier avec amour et^delicatesse; il est indispensable a 
ce titre de lire la rubrique 'Trues et Astuces" a la page 15 
du Pom's 6. 

Muni d'une bonne paire de ciseaux, ou d'une pince a 
tierce, vous pouvez diminuer par 2 votre budget disquettes 
en pratiquant une encoche opposee a l'encoche laterale 



actuelle. Le verso de la disquette devient alors utilisable; il 
n'est pas garanti par le fabricant, mais ne pose pratique- 
ment pas de probleme. 

Bien entendu, ne jamais forcer lors de 1' introduction ou de 
1 extraction d'une disquette. Eviter la proximite de tout ce 
qui comporte des electro-aimants, le support magnetique 
etant par definition sensible a leur "influence". En particu- 
lier, ne pas poser le telephone sur une disquette ! 



Que faut-il lire ? 

Nous conseillons les ouvrages suivants : 

Pratique de l'Apple II, par Henri Lilen (Editions Radio: 
facile a comprendre, tres bien pour les debutants. 

Visicalc sur Apple, par Herve Thiriez (Editions du PSI) : 
indispensable pour une utilisation efficace de Visicalc. 

BASIC Applesoft - Manuel de reference alphabetique, par 
Paul Merry : il fait bien ce qu'indique le titre. Par contre, 
mal encolle, il vous reste dans les mains. 

Clefs pour l'Apple II, par Nicole Breaud-Pouliquen (Edi- 
tions du PSI) : voir la rubrique bibliographique de ce nu- 
mero. 

La pratique de l'Apple II (volume III), par Nicole Breaud- 
Pouliquen et Daniel-Jean David (Editions du PSI) : pour 
ceux qui desirent apprendre l'assembleur du 6502. 

Ceci dit, une mine inepuisable de programmes, idees et 
renseignements se trouve a portee de votre main dans 
Pom's. Pourquoi vous en priveriez-vous ? Si une seule 
page lue dans un numero de l'annee vous evite de perdre 
une journee, vous avez largement amorti votre abonne- 
ment avec disquettes. En outre, de nombreux programmes 
foumis avec la revue (HAIFA, un programme de HELLO 
complet, l'analyseur de syntaxe, ...) supportent aisement la 
comparaison avec des programmes commerciaux vendus 
de 300 a 900 francs. 

On nous demande souvent pourquoi il n'y a pas d'ouvra- 
ges dans notre langue sur l'Apple ///. II y a deux principa- 
ls raisons a cela. La premiere est que, pendant long- 
temps, les ventes d' Apple///, assez faibles par rapport a 
celles de l'Apple II, ne justifiaient pas un tel effort. La se- 
conde raison, toujours valable en bonne partie, est que la 
grande majorite des possesseurs de l'Apple /// sont des uti- 
lisateurs professionals : ceux-ci lisent en general peu sur 
le sujet, se contentant souvent de faire tourner la machine 
a longueur de journee avec des programmes standards. 
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Le H-BASIC : un BASIC Pascalien 



Pourquoi un nouveau 
langage ? 

En pratiquant un peu le BASIC, on 
s'apercoit tres vite des limites du lan- 
gage et peut-etre un peu moins vite 
des mauvaises habitudes qu'il fait 
prendre: les GOTOs rendent les pro- 
grammes difficilement lisibles, l'ab- 
sence de variables locales et de vrais 
sous-programmes empeche de traiter 
des problemes recursifs et rend diffi- 
cile la structuration d'un programme. 

Pour pallier ces limitations, on peut 
passer au Pascal, mais ce langage 
coute cher, se montre plus complexe 
et plus difficile a debugger, ne pos- 
sede pas de graphisme basse-resolu- 
tion et est tres lourd des qu'il s'agit 
d'utiliser des routines en assembleur. 
On peut aussi faire du Lisp ou du 
Logo, mais leur specificite en fait des 
langages un peu a part. On peut 
enfin faire du FORTH (nous reparle- 
rons certainement de ce langage 
plein d'avenir). 

Nous avons prefere creer un langage 
hybride possedant les structures de 
bloc du Pascal et "collant" de pres a 
l'Applesoft. Deux possibilites s'of- 
fraient pour cela : l'amper-interpre- 
teur (c'est-a-dire ajouter des com- 
mandes a l'Applesoft par le biais de 
la commande ampersand &), qui po- 
sait des problemes de lisibilite du lis- 
ting, et le compilateur (c'est-a-dire un 
programme traduisant un programme 
source ecrit en H-BASIC en un pro- 
gramme objet ecrit en Applesoft), so- 
lution que nous avons retenue ici. 

Caracteristiques 
du langage 

Un programme en H-BASIC est 
forme de blocs emboites appeles 
procedures, qu'on peut appeler avec 
ou sans parametres, par 1' instruction 

@ 

Voici un exemple de programme 
ecrit en H-BASIC : 



procedure PRINCIPALS 
var N, P, A$ 

procedure MOINS 
in A: out B 
begin 

B — A 
end 

begin 
input N 

@ MOINS (N,P) 
print P: get A$ 
end 



Les variables sont celles de l'Apple- 
soft, les tableaux jouant un role parti- 
culier : ils sont represent.es par un 
diese devant leur nom dans la partie 
declaration de variables et passage 
de parametres, et on peut definir une 
operation directe sur les tableaux si 
leurs dimensions coincident: #A=#B 

Les exemples ci-dessous montrent les 
principales instructions permises entre 
le "begin" et le "end" d'un bloc : 



Olivier Herz 

en Applesoft apres compilation du 
code H-BASIC. 

Avantages et 
inconvenients 
du H-BASIC... 



for 1=1 to 10 

print I 
endfor 



while K2000 

1=2*1 
endwhile 



until I<.01 

1=1*3 
enduntil 



if A=l: B=2 
elsif A=2: B=4 
else B=0 
endif 



De plus, la plupart des instructions 
Applesoft sont permises (HOME, 
TEXT, &, etc.). 

Un exemple parlant : 
les tours de Hanoi 

Nous joignons un listing type du pro- 
bleme des tours de Hanoi, ecrit en 
Applesoft, en Pascal, en H-BASIC et 



Sur l'Applesoft 


Sur le Pascal 


Mieux structure' 
Variables 

locales 
Affectation 

de tableaux 
Vrais sous-prog. 


Moins complexe 
Debuggage facile 
&-interpreteur 
Instruction DATA 
Graphisme basse 
resolution 


Compilation 
assez longue 

Plus encombrant 
en memoire 


Lenteur 

du BASIC 
Peu de types 

de donnees 
Peu de noms 

de variables 
Pas de fonctions 



Comment ecrire en H- 
BASIC ? 

II faut creer un fichier TEXT conte- 
nant le programme H-BASIC. Deux 
methodes sont possibles : utiliser un 
systeme de traitement de texte 
comme AppleWriter II ou bien 



Hanoi H-BASIC 



procedure HANOI 
var #N5(2), NX 

procedure DEPLACE: in A, B 
begin 

print NS(A);" --> ";NS(B) 
end 



procedure TRANSFERT : in ! TAILLE , ! DEBUT, t FIN 

var ! AUTRE=3 -DEBUT -FIN 

begin 

if TAILLE-i: @ DEPLACE ( DEBUT , F IN ) 
else 

@ TRANSFERT( ITAILLE-1, f DEBUT, 'AUTRE) 
DEPLACE (DEBUT, FIN) 

a TRANSFERS !TAILLE-1, ! AUTRE, !FIN) 
endif 
end 

begin 

until NX>0 
text: home 

input "NOMBRE DE DISQUES? " ; H% 
enduntil: N$ (0) ■ "GAUCHE" 
NS ( 1 ) = "MILIEU" : N$ <2) ="DR0ITE" 
S TRANSFERT (NX, 0,2) 
end 
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l'ecrire dans les REMs d'un pseudo- 
programme Applesoft et creer le fi- 
chier TEXT selon une procedure sim- 
ple expliquee dans la documentation 
du H-BASIC. 

Puis on lance le compilateur qui cree 
a partir de ce fichier un fichier TEXT 
contenant le programme Applesoft. II 
suffira alors de faire EXEC "nom du 
fichier" et Ton obtiendra le pro- 
gramme Applesoft compile qu'il fau- 
dra sauver par SAVE. 

Que contient le progiciel 
H-BASIC ? 

On y trouve bien sur le compilateur, 
ecrit en H-BASIC et sa version exe- 
cutable compilee en Applesoft, ainsi 
que quelques routines assembleur 
utiles au compilateur. 

On trouve aussi tout un ensemble de 
routines necessaires aux programmes 
une fois compiles, routines que Ton 
peut bien entendu utiliser directe- 
ment dans un programme Applesoft : 
empilement et depilement de varia- 
bles et tableaux, affectation de ta- 
bleaux, RESTORE NNN, GOSUBs 
quasi-illimites, tout cela par le biais 
d'une pile qui permet la recursivite 
en BASIC. 

On trouve enfin un certain nombre 
de programmes de demonstration 
ecrits en H-BASIC et compiles en 
Applesoft, comme le jeu "Le compte 
est bon", exemple recursif de l'interet 
du H-BASIC. 

Conclusion 

Nous conseillons bien entendu le H- 
BASIC a tous ceux qui sont a la re- 
cherche d'un langage facile et plus 
agreable que le BASIC. Nous insis- 
tons de plus sur le caractere didacti- 



program hanoi; Hanoi' Pascal 

var NOM: ARRAY CO. .2] o± INTEGER; 
N : INTEGER; 

procedure DEPLACE ( A . B : INTEGER) ; 
begin 

writelncNGM(A) , ' --> ',NOM(B)) 
end ; 

procedure TRANSFERT < TAILLE . DEBUT . FIN : INTEGER) ; 

var AUTRE: INTEGER; 

begin 

AUTRE: =3-DEBUT-FIN; 

if TAILLE= 1 then DEPLACE ( DEBUT , FIN ) else 
begin 

TRANSFERT(TAILLE-1. DEBUT, AUTRE) ; 
DEPLACE (DEBUT, FIN ) ; 
TRANSFERT ( TAILLE- 1 , AUTRE , FIN ) 

ena 
end ; 

begin 
repeat 

page(output) ; 

write ( ' NOMBRE DE DISQUES? '); 
readln ( N ) 
until N>0; NOM ( O) :=' GAUCHE ' ; 
NGM(l) : = 'MILIEU ' ; NOM (2) :='DROITE' ; 
TRANSFERT (N ,0,2) 
end . 



que de ce package, l'epluchage d'un 
compilateur ecrit "dans lui-meme" 
etant toujours un exercice passion- 
nant, d'autant plus que l'utilisateur 
peut ainsi facilement modifier le lan- 
gage a sa guise, sans parler des routi- 
nes en assembleur qui rendent l'Ap- 
plesoft recursif. 



NB : l'existence de ces routines em- 
peche une compilation du pro- 



gramme Applesoft (TASC, Expedi- 
ter,...). 

Comme il aurait fallu consacrer plus 
de la moitie de la revue au mode 
d'emploi et au listing du H-BASIC, il 
nous a fallu decider d'en faire un 
progiciel a part. Vous ne trouverez 
done pas le H-BASIC sur la disquette 
d'accompagnement. Celui-ci est 
vendu par correspondance au prix 
de 150 francs TTC, manuel d'utilisa- 
tion compris. 



Hanoi Applesoft 



10 TEXT : HOME : INPUT "NOMBRE DE DISQU 
ES? ";NX: PRINT : IF NX < 1 THEN 
10 

20 DIM DEBUT(NX) ,FIN(NX) , AUTRE(NX) ,NS(2 
>:NS(0) = "GAUCHE" : NS < 1 ) = "MILIE 
U":NS(2) = "DROITE" :DEBUT(NX) = 

:fin(Nx) = 2:autre<N50 = l: gosub 

30: END 

30 IF N« = 1 THEN A = DEBUT(NX):B = FIN 

(NX): GOSUB 100: RETURN 
40 NX = NX - l:DEBUT(Nx) = DEBUT (NX ■<■ 1) 

:FIN(NX) = AUTRE < NX * 1):AUTRE(N?« 

) = FIN<NX + 1): GOSUB 30 : A = DEB 

UT(N* * 1):B x FIN(N« + 1) 
50 GOSUB 100: DEBUT (NX) = AUTRE(NX ♦ 1): 

FIN(Nst) = FIN(NX ♦ 1):AUTRE(NX) = 
DEBUT (NX + 1): GOSUB 30 : NX = NX 

♦ l: RETURN 
100 PRINT NS(A);" --> ";US(B)l RETURN 



Hanoi H-BASIC compile 

100 PRINT CHRS (4)"BL0AD PILE , A32000" : 
HIMEM: 32000: DIM ZZS ( 19 ) , 22 ( 19 ) 
,YY(9) , YYS(9) : & GOSUB 110: END 

109 REM 

-- DEBUT DE LA PROCEDURE HANOI 

110 GOTO 180 

119 REM 

-- PROCEDURE DEPLACE 

120 PRINT NS(A);" --> ";N9(B): & RETUR 

N 

129 REM 

-- PROCEDURE TRANSFERT 

130 & > AUTRE:AUTRE = 3 - DEBUT - FIN: 

IF NOT (TAILLE = 1) THEN 150 
140 A = DEBUT : B = FIN: S, GOSUB 120: GOT 
170 

150 ZZ(0) = TAILLE - 1:Z2(1) = DEBUT:ZZ( 
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2) = AUTRE : 6. > TAILLE , DEBUT , FIN 
: TA I LLE = ZZ<0):DEBUT = 2Z<1):FIN 
= ZZ<2>: 6. GOSUB 130: 5. < FIN, 
DEBUT, TAILLE: A = DEBUT : B = FIN: & 
GOSUB 120:ZZ(0) = TAILLE - 1:22 
(1) = AUTRE:ZZ(2) = FIN: 5, > TAI 
LLE , DEBUT, FIN 
160 TAILLE = ZZ(0):DEBUT = ZZ(1):FIN = Z 
ZC2): 5, GOSUB 130: & < FIN , DEBU 
T, TAILLE 
170 & < AUTRE : 5. RETURN 



179 REM 

-- CORPS DE LA PROCEDURE HANOI 
ISO & > #NS: DIM NS(2) 

190 TEXT : HOME : INPUT "NOMBRE DE DISQ 
UES? ";Nx: IF NOT (.NX > 0) THEN 
190 

200 ns(o) = "gauche" : us < 1 ) = "milieu" : ns 
(2) = "droite" : & > taille, debut 
,fin:taille = nx : debut = o:fin = 
2: 6, gosub 130: 6. < fin, debut, t 
aille: & < #ns: & return 
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Les joies du PR# 

PR# n reprogramme le saut de la sortie 
vers le slot n (0 pour l'ecran)e de meme, 
gramme l'entree de caracteres (0 _ 
cela se fait a l'aide des routines si' 
$CnFF de la PROM du slot. 

Or, si le slot est un controleur de disq 
la routine fait rebooter : ainsi, PR# 6 
nent le boot. 



de caracteres 
IN# n reoro- 




ces 



Mais le boot n'a pas lieu tout de suite si Ton fait pa- 
tienter avant la lecture ou I'ecriture d'un caractere. 
exemple, faire en Applesoft ; 
:PR# 6:FOR 1=1 to 1000Q.NEXT 
Voir dans le Pom's, page 26. pourquoi nous debutons 
par 

On peut aussi lancer le programme : 
10 PRINT CHR$(4)"PR# 6 r ': IF PEEK (-16384)<128 
THEN 10 



Amusant, n'est-ce-pas ? 



Apple // Apple /// 

leurs interfaces, 

leurs peripheriques, 
leurs logiciels 




Demonstrations Jeudi 



Lordmateur pt 



personnel 



(^Q^m.b.d.c. 

172, rue Solferino - 59800 LILLE TEL. (20) 57.91.87 

concessionnaire agree APPLE • S.A.V. sur place 
ouvert du mardi au samedi de 9h30 a 1 2h et de 14H30 a 19h 
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Les Logiciels Saari 
ont obtenu la R>mme d Or 
et le label Bureau \£ritas. 

Vous savez maintenant 
a qui vous fier. 




Tous les editeurs de logiciels sont contents de 
leurs logiciels. Nousaussi. C'est humain, c'est normal. 

Mais la difference c'est qu'il n'y a pas que Saari 
pour dire du bien des logiciels Saari. 

Parmi plusieurs dizaines de logiciels la Paie 
Gipsi a obtenu la recompense supreme decernee 
par Apple, la Pomme d'Ordu Logiciel. 

Afin d'apporter un maximum de securite a ses 
clients, Saari a confie au Bureau Veritas le soin de 
tester ses programmes pour verifier leurs qualites. 
Le label Bureau Veritas attestant de ces controles est 
appose sur les programmes Saari. 

La Presse Informatique a beaucoup parle des 
Logiciels Saari, louant leurs qualites: facilites d'uti- 
lisation ou d'apprentissage, richesse fonctionnelle, 
securite d'emploi ou finition. 

Les Logiciels Saari sont egalement conformes 
aux derniers textes legaux parus. 

Mais il y a aussi plusieurs centaines d'utilisa- 
teurs heureux pour dire du bien de nos logiciels. 
Des utilisateurs rassures en particulier par le Saari 
Securite Service, un ensemble de services exclusifs 
a Saari. 

Saari, aujourd'hui, ce sont trois logiciels, une 
Comptabilite, une Paie et une Gestion de Dossiers. 
Trois logiciels a qui vous etes surs de pouvoir vous 
fier. 




saari 

« L'Esprit Frangais » 

45, rue Galilee. 75116 Paris 

Tel. (1) 723 78 56 - Telex 611 423 



Bon pour une documentation gratuite. 

Nom 



Societe . 



Adresse . 



_ Tel. . 
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Moniteur etendu 
pour Apple II Plus et He mmyfr** 



NDLR : la tres grande longueur de 
cet excellent moniteur etendu nous a 
amenes a couper une partie du lis- 
ting. Nous avons ainsi coupe du 
"source" imprime les routines de 
TRACE (732-749). STEP (750-846) 
et MINI-ASSEMBLER (918-1089), 
qui correspondent a des themes deja 
traites dans Pom's. En outre, pour 
(aire de la place, les routines de 
conversion (501-638) et de recher- 
ches de codes (394-500) ont elles 
aussi ete court-circuitees. Le pro- 
gramme source complet se trouve 
sur la disquette d'accompagnement. 
ainsi qu'un programme DUMP en 
Basic permettant a ceux qui ne pos- 
sedent pas le Big Mac de faire la liste 
complete du source sur leur impri- 
mante. La recapitulation a la fin de 
cet article est bien entendu complete: 
bon courage a ceux qui tiennent a 
l'entrer au clavier (la disquette d'ac- 
compagnement est disponible pour 
50 FF TTC). 

Le moniteur d'origine de 1' APPLE II 
occupe 2K octets, de $F800 a 
$FFFF. Dans cet espace plutot reduit, 
ses concepteurs ont tout de meme 
reussi a loger un desassembleur, en 
plus de toutes les commandes indis- 
pensables. Lors de 1' introduction de 
la ROM AUTOSTART, certaines 
fonctions furent rajoutees (ESC- 
I,J,K,M; CTRL-S; Auto-Boot; ...) au 
detriment des fonctions STEP et 
TRACE. 

L'un des premiers objectifs de ce 
moniteur etendu fut de recreer ces 
fonctions; vous allez voir qu'il va fi- 
nalement bien au-dela ! 

Parmi les fonctions les plus remar- 
quables, il faut noter : 

- le pas-a-pas (STEP) 

- le pistage (TRACE) 

- le mini-assembleur 

- le point d' arret 

- la recherche d' octets 

- les minuscules au clavier 

- les conversions HEXA -» DECI- 
MAL et DECIMAL -* HEXA 

- 1' addition et la soustraction sur 16 
bits. 

1. Appel du moniteur 
etendu (&) 

Ce moniteur est ecrit en Big Mac. 
Son assemblage necessite la version 
64K du Big Mac; sinon, il faut cou- 
per les remarques pour regagner de 
la place et assembler en version 48K. 
II occupe les emplacements memoire 



$8D00-$95FF. Pour l'appeler, il suf- 
fit de taper : 

8D00G depuis le moniteur, 
CALL 36096 (ou CALL -29440) 
depuis le BASIC. 

Une autre solution consiste a simple- 
ment faire "BRUN MONITEUR" a 
partir du BASIC. 

Vous pouvez savoir que vous etes 
sous son controle grace au signe 
(PROMPT) et au nouveau son de la 
cloche. Le nouveau signe est un as- 
terisque affiche en inverse. 
Si vous etes en BASIC, tapez main- 
tenant "&" puis "RETURN". Le mo- 
niteur vous repond : "<< AMPER-' 
SAND OK »". Par la suite, pour 
appeler le moniteur depuis le BASIC, 
il vous suffira de taper a nouveau 
"&" et "RETURN". De plus, on re- 
tourne au moniteur si on tombe sur 
un BRK (par exemple CALL -35 ou 
FFDDG) car le moniteur repro- 
gramme le BRK (119-122). 



2. Les commandes 

D'une maniere generale, la syntaxe 
des commandes a ete calquee sur 
celle du moniteur d'origine (sauf RE- 
TURN seul qui n'affiche plus les 
octets de la memoire) : les adresses 
ou arguments se placent devant, im- 
mediatement suivis par une lettre de 
commande, sans espace. Plusieurs 
commandes peuvent s'ecrire sur une 
meme ligne. Les commandes "nor- 
males" du moniteur fonctionnent 
toujours de la meme facon, mais affi- 
chent parfois des indications comple- 
mentaires. C'est le cas par exemple 
de la commande ";" qui, apres le 
RETURN suivant, affiche 1'adresse et 
le contenu du prochain emplacement 
memoire des que Ton enfonce la 
barre d' espace : 

2000 :A9 00 A2 FF [RETURN] 

[ESPACE] 
2004(AA) : 

Cela est souvent utile lorsqu'il faut 
taper toute une liste d'octets; on est 
sur de ne pas sauter une adresse. 

Marche arriere( A) 

Pour corriger une erreur, il est possi- 
ble de revenir a 1'adresse precedente 
en tapant "A" juste derriere le 
prompt, au debut de la ligne sui- 
vante. L'adresse precedente s'affiche 



alors, suivie de son contenu entre 
parentheses. Apres le ":", tapez 
alors la donnee. cette fois-ci sans er- 
reur ... 



Stockage de texte (;) 

II est parfois utile de mettre des ca- 
racteres ASCII directement en me- 
moire. comme on entre des octets 
par la commande " : ". Pour cela, on 
tape l'adresse. un point-virgule. et le 
mot ou la phrase que Ton veut sta- 
cker en memoire : 

2004;CECI EST UN EXEMPLE 

Tous les caracteres. y compris les es- 
paces seront ranges a partir de 
l'adresse specifiee. jusqu'au dernier 
caractere qui precede le RETURN. Si 
1'APPLE est en mode INVERSE a ce 
moment, les caracteres sont stockes 
en inverse (commandes "1" pour In- 
verse et "N" pour Normal). 

Examen memoire Hexa- 
ASCII (H) 

Cette commande permet de visuali- 
ser le contenu d'une portion de la 
memoire en hexadecimal et en 
ASCII. Tapez la premiere adresse a 
examiner, puis "H". L'ordinateur af- 
fiche alors 22 lignes comportant 8 
octets et leur representation ASCII : 

2000H 

2000- B9 00 A2 FF C3 C5 C3 C9 )§" CECI 
2008- AO C5 D3 D4 fiO D5 CE AO EST UN 

2010- C5 D8 C5 CD DO CC CE 26 EXENPLES 

2018- 53 38 A5 52 E5 54 flfl A5 SMRfT** 

2020- 53 90 06 

Le bit de poids fort est ignore; les ca- 
racteres de controle sont affiches en 
clignotant. Un "H" non precede 
d'une adresse affiche les 22 lignes 
suivant celles du dernier H normal. 
Les adresses de $C000 a SCOFF 
sont automatiquement sautees, car 
elles ne correspondent pas a de la 
memoire et leur "lecture" acciden- 
telle est dangereuse pour les pro- 
grammes qui se trouveraient en RAM 
a cet instant. Appuyer sur la barre 
d'espace affiche les 22 lignes suivan- 
tes. N'importe quelle autre touche re- 
vient en mode commande. 



Pom's n c 8 



39 



NDLR; il n'est pas tout-a-fait vrai que 
le bit de poids fort soit ignore. Faire 
pour le voir TOR 1=0 TO 255: 
POKE 8192+1,1: NEXT I", puis 
2000H sous le moniteur. 



Recherche d'octets (/) 

Cette commande permet de recher- 
cher un octet ou une serie d'octets, 
entre deux adresses. Donnez la pre- 
miere adresse a partir de laquelle 
vous desirez commencer a chercher, 
un point, la derniere adresse a exa-- 
miner, une barre de fraction (/), 1' oc- 
tet ou la serie d'octets que vous 
cherchez, et RETURN. 

F800.FFFF/20 ED FD 

Le moniteur va explorer toutes les 
adresses depuis $F800 jusqu'a 
$FFFF et afficher toutes les adresses 
ou il trouve la suite d'octets $20 
$ED et $FD. Par exemple : 

F903,F91B,F923,F94C,FAE6,FAEC 
FAF1,FD47,FD64,FD6C,FDB8 
FDD6, FE46,FE4B,FE55,FF2F,FF34, 
FF37 

Notez que, la encore, le moniteur 
saute automatiquement les adresses 
de $C000 a SCOFF. Notez aussi qu'il 
range votre liste d'octets dans le buf- 
fer clavier (en $200); ne soyez done 
pas surpris qu'il l'y retrouve. 

Recherche de cartacteres (") 

Variation de la precedente, cette 
commande suit a peu pres la meme 
syntaxe : 

F800. FFFF"APPLE 
FB09, 

II est important de noter que le mo- 
niteur retrouvera un mot qu'il soit en 
NORMAL, en INVERSE, en FLA- 
SHING ou meme en minuscules. Si 
vous n'etes pas sur de l'orthographe 
d'un mot, vous pouvez remplacer 
une, ou plusieurs lettres par "=". 

800.9600"ROU=E 

Dans ce cas, le moniteur retrouverait 
indifferemment ROUEE, ROUGE, 
ROULE, etc... Le signe "=" est ce 
qu'on appelle en anglais un caractere 
"wild card". 

Ne soyez pas surpris non plus que le 
moniteur retrouve la liste de caracte- 
res dans la memoire associee a 
l'ecran ($400-$7FF). 



mal est alors affiche, suivi de sa re- 
presentation en negatif s'il y a lieu : 

C000$= 49152 (-16384) 



Conversion en hexadecimal 
(=) 

Tapez le nombre a convertir, le signe 
"=" et RETURN. L' equivalent hexa 
est affichi, suivi de la conversion 
complementaire si cela est possible : 

16384= $4000 (-16384=$C000) 

Addition et soustraction 
(+-) 

Ces operations fonctionnent de la 
meme maniere que sous le moniteur 
d'origine, mais peuvent traiter des 
nombres de 16 bits (4 chiffres hexa) : 

1AF7+ C3B = 2732 
C080-BFAF= 00D1 



ou point d' arret 



Conversion en decimal ($) 

Tapez le nombre a convertir, un dol- 
lar, et RETURN. L equivalent deci- 



La pause, 

(PAX) 

U est frequemment utile de connaitre 
l'etat des registres a certains endroits 
du deroulement d'un programme, 
lors de sa mise au point par exem- 
ple. La methode usuelle consiste a 
placer un "break" (00) a l'endroit 
desire, et a retablir la valeur d'origine 
apres son execution. Ce moniteur 
propose une alternative moins pri- 
maire ; tapez l'adresse ou vous desi- 
rez voir le programme s'interrompre, 
"P", et RETURN 

2004P 

L'asterisque (le prompt) se met a cli- 
gnoter, signalant la modification de 
votre programme. Lors du lancement 
de celui-ci, tout se deroule normale- 
ment jusqu'a l'adresse du point d'ar- 
ret. A cet instant, le contenu des re- 
gistres est affiche, le point d'arret est 
supprime, le programme est restaure 
et l'asterisque arrete de clignoter : 

2004 A=00 X=FFY=7 
P=NV.BDIZC S=E7 

Remarquez l'affichage detaille du re- 
gistre "P". Chaque drapeau est re- 
pere par son initiale standard s'il est 
a 1, ou par un point s'il est a 0. Cet 
affichage est obtenu egalement lors 
de la commande "CTRL-E". 
Une seule pause peut etre mise en 
place a la fois. Si vous oubliez 
l'adresse ou vous avez place un point 
d'arret, tapez "O" et RETURN pour 
retrouver cette adresse. Si vous 
changez d'avis et desirez supprimer 
un point d'arret sans executer votre 
programme, tapez "X" puis RE- 
TURN. 



Le moniteur memorise l'adresse de 
la pause et son ancien contenu a 
partir de $2FB; il est done primordial 
de ne pas toucher a ces adresses tant 
que la pause est en vigueur. Notez 
aussi que le point d'arret doit etre en 
RAM. 



Le STEP, ou pas-a-pas (S) 

Comme son nom 1'indique, cette 
commande permet d'executer un 
programme instruction par instruc- 
tion. L'adresse est tapee, suivie de 
"S" et RETURN : 

2000S 

2000- A9 00 LDA #$00 
A=00 X=32 Y=07 
P=...B..Z. S=E7 

Ensuite, il suffit d'appuyer sur la 
barre d'espace pour executer ['ins- 
truction suivante, ou sur n'importe 
quelle autre touche pour sortir de ce 
mode. Si aucune adresse n'est speci- 
fied avant le "S", l'adresse prise par 
defaut est celle rangee en $3A,$3B 
(PCL,PCH) lors d'un STEP anterieur 
ou d'un point d'arret par exemple. 
Ceci permet de partir en pas-a-pas 
immediatement apres une pause. 

La TRACE, ou pistage (T) 

Cette commande n'est autre qu'un 
STEP perpetuel, et obeit done aux 
memes regies que celui-ci : 

2000T 

2000- A9 00 LDA #$00 
A=00 X=32 Y=07 
P=...B..Z. S= E7 

2002- A2 FF LDX #$FF 
A=00 X=FF Y=07 
P=N..B.... S=E7 

2004- C3 



La vitesse de defilement est reglable 
par le paddle 0. Une pression sur le 
bouton fige l'ecran afin de pouvoir le 
lire tranquillement; relacher le bouton 
pour continuer. Appuyez sur n'im- 
porte quelle touche du clavier pour 
en sortir. Cela peut ne pas marcher 
si les poignees ne sont pas connec- 
tees. 

Utilisant les memes adresses en page 
zero que les anciens STEP et 
TRACE, ces deux commandes souf- 
frent des memes contraintes : impos- 
sible de pister un programme qui uti- 
liserait les dites adresses. 



Le mini-assembleur (!) 

Voici une vieille connaissance ! Dis- 
ponible d'origine avec PINTEGER 
BASIC, cette facilite est de nouveau 
a votre disposition. II vous suffit pour 
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cela de taper un point d'exclamation 
(!) et RETURN. 

Son utilisation est decrite en detail 
dans Ie manuel de reference APPLE. 
Tapez "* "en debut de ligne et RE- 
TURN pour revenir sous le controle 
du moniteur etendu. 

Copie en remontant, ou 
mode inverse (>) 

II arrive assez souvent que Ton ait a 
deplacer un bloc memoire de quel- 
ques octets vers le haut, la 
commande MOVE (M) est alors im- 
possible a utiliser car les premiers 
octets sont recopies "par-dessus" les 
suivants. Exemple : 

2005<2000.2100 

Dans cet exemple, les octets de 
$2000 a $2004 seront bien recopies 
en $2005-$_2009, mais la suite 
$200A— $2105 contiendra egalement 
cette meme serie de 5 octets repetes 
sans arret. Pour remedier a ce pro- 
bleme, utilisez la commande : 

2000.2100>2005 

Ne tapez pas "M", sous peine de 
"plantage" catastrophique dans cer- 
tains cas; tapez tout de suite RE- 



TURN. Notez le choix des signes 
"<" et ">" qui rappellent le sens 
dans lequel se fait le deplacement. 

La saisie des minuscules (K) 

Tapez tout de suite "K" et RETURN. 
Le curseur change pour vous signaler 
que vous avez quitte le fonctionne- 
ment habituel de votre clavier. A par- 
tir de ce moment, CTRL-S commute 
le mode "minuscules" et CTRL-A 
commute le mode "majuscules". 
Notez que le DOS est provisoirement 
deconnecte. Notez egalement que la 
modification de la touche SHIFT est 
reconnue. 



Sortie du moniteur (Q) 

Pour quitter le moniteur etendu et 
revenir au BASIC, tapez "Q" et RE- 
TURN. Le DOS est alors connecte 
(= 3D0G) ; la saisie des minuscules 
n'est pas affectee; vous pouvez done 
entrer des minuscules sous BASIC et 
sous DOS. 

Attention : RESET ou PR#n decon- 
nectent la commande "K" (plus de 
minuscules au clavier) ! 



Re-vectoriser le RESET (%) 

Si vous desirez pouvoir retomber 
dans le moniteur etendu par appui 
sur RESET, et que vous avez la 
ROM AUTOSTART, tapez "%". Le 
moniteur etendu repond << RESET 
OK >>. e'est tout. Pour renvoyer le 
RESET au BASIC, dans le cas d'un 
48K avec le DOS, tapez : 

3F2 :BF 9D 38 

Tapez ensuite RETURN, e'est ter- 
mine. Remarque : la ROM Autostart 
deconnecte systematiquement l'es- 
pace $C800-$CFFF). 



NDLR : il y a un leger "bug" dans 
l'entree du moniteur. Faire deux He- 
ches a gauche puis taper sur les tou- 
ches "L" et "RETURN" avec ce mo- 
niteur et celui de I'Appplesoft donne 
des resultats differents. En fait, le 
buffer d'entree est decale d'un carac- 
tere par rapport a I'Autostart (faire 
NNN200L dans les deux cas pour 
voir) ; changer cet etat de choses 
s'avere complique a la vue du 
source : nous ne l'avons pas fait. 



mm 



cameo 
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2 * 

3 * 

4 ♦ 

5 * 

6 * 

7 * 
8 
9 

10 * 

11 
12 
13 



EXTENSION DU MONITEUR 
DE L' APPLE II + 

Thierry Le Tallec 



* 
* 
* 

* 
« 



Big Mac 
64 K 



/ 5 Mai 1983 



ORS $8000 



14 CH 


= 


$24 


15 BflSL 


= 


$28 


16 RTNL 


s 


$2C 


17 RTNH 


= 


$2D 


18 FORMAT 


= 


$2E 


19 LEN6TH 


= 


$2F 


20 MODE 


= 


$31 


21 INVFLB 




$32 


22 PROMPT 


= 


$33 


23 YSAV 


s 


$34 


24 L 


= 


$35. 


25 CSWL 


= 


$36 


2B CSWH 


= 


$37 


27 KSWL 


= 


$38 


28 KSWH 




$39 


29 PCL 


= 


$3A 


30 PCH 


= 


$3B 


31 XQT 


= 


$3C 


32 OPRND 


= 


$3C 


33 AIL 


= 


$3C 


34 A1H 


= 


$3D 


35 A2L 


= 


$3E 


36 A2H 


= 


$3F 


37 A3L 


= 


$40 


38 A3H 


= 


$41 


39 A4L 


= 


$42 


40 A4H 


= 


$43 


41 FMT 


= 


$44 


42 ACC 


= 


$45 


43 XREG 


= 


$46 


4A STATUS 


= 


$48 


45 TEMP 


= 


$4A 


46 DIGIT 




$4E 


47 RNDL 




$4E 


48 RNDH 


s 


$4F 


49 STARTFLG 




$4F 


50 INBUFF 




$200 


51 QUIT 




$300 


52 SOFTEV 




$3F2 


53 AMPERSND 




$3F5 


54 SHFTLOCK 


a 


$77E 


55 MINFLA6 


a 


$7FE 


56 KBD 


= 


$C0O0 


57 KBDSTRB 




$C010 


58 SPKR 




$C030 


59 PUSHBO 




$C061 


60 SHIFT 




$C063 



; (CALL -29440) 



Pour garder les accents 
dans les commentaires, 
nous avons mis I'impri- 
mante en mode francais. - 
Ainsi, "£" signifie "#". 



61 INSDS1 

62 INSDS2 

63 INSTDSP 

64 PRNTYX 

65 PRNTAX 

66 PRBLNK 

67 PRBL2 

68 PCADJ 

69 PCADJ2 

70 PCADJ3 

71 ChARl 

72 CHAR2 

73 MNEKL 

74 mnemr 

75 RTBL 

76 PREAD 

77 INIT 

78 UP 

79 CLREOP 

80 WAIT 

81 RDKEY 

82 RDCHAR 

83 BETLNZ 

84 NXTCHAR 

85 CR0U r 

86 PRA1 

87 PRBYTE 

88 COUT 

89 COUTi 

90 BL1 

91 BLANK 

92 SETMODE 

93 LT 

94 MOVE 

95 VFY 
% LIST 

97 A1PC 

98 A1PCLP 

99 SETINV 

100 SETNORM 

101 SETKBD 

102 INPUT 

103 SETVID 

104 OUTPUT 

105 XBASIC 

106 BASCONT 

107 SO 

:08 ySR 

109 WRITE 

110 READ 

111 RESTQR 

112 SAVE 

113 GETNUM 

114 ZMODE 
115 
116 

117 *** DEBUT DU 
118 

119 START J)A 

120 STA 



TR 



$F882 

$F88E 

$F8D0 

$F940 

$F941 

$F948 

$F94A 

$F953 

$F954 

$F956 

$F9B4 

$F9BA 

$F9C0 

$FA00 

$FB19 

$FB1E 

$FB2F 

$FC1A 

$FC42 

$FCA8 

$FD0C 

$FD35 

$FD67 

$FD75 

$FD8E 

$FD92 

$FDDA 

$FDED 

$FDF0 

$FEOO 

$FE04 

$FE18 

$FE20 

$FE2C 

$FE36 

$FE5E 

$FE75 

$FE78 

$FE80 

$FE84 

$FE89 

$FE8D 

$FE93 

$FE97 

$FEBO 

$FEB3 

$FEB5 

$FECA 

$FECD 

$F£FD 

$FF3F 

$FF4A 

$FFA7 

$F?C7 

ON 



;detruit A,X,Y 

;detruit A,X,Y 
;detruit A 
;detruit A 
;d«ruit A,X 



;detmt A, Y 



;detruit A,Y 
;annule A 



;detruit A 
;aetruit A,X,Y 
;detruit A 
;detruit A 



;detruit A ; X 



;detruit A,X : Y,P 
;detruit A 
;cetruit A,X,Y 

;tronque le listing (col. 2) 



MCNITEUR ETENDU **** 



fXBRK 
$3F0 



;revectorise le brean 
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121 


LDfl 


f > XBRK 




181 


BNE 


CRM0N3 




122 


STfl 


*3F1 




182 


JMP 


STORE 




123 


JSR 


SETVID 


;PR£0 


183 CRM0N3 


JSR 


Rl 1 




124 


JSR 


5ETKBD 


;IN£0 


184 CRM0N4 


P 1 A 




■A'u^tp 1a nilp 


125 


JSR 


SET NORM 


; NORMAL 


185 


PLfl 






126 


JSR 


WIT 


;TEXT 


186 


BNE 


MONZi 




127 HON 


CLD 






187 TOSUB 


TYA 






128 


JSR 


BELL 




188 


ASl 






129 MONZ 


BIT 


PROMPT 


; prompt = "i" ou ">" ? 


189 


TRY 






130 


BKI 


SETPRMPT 


;oui => prompt = '*' inverse. 


190 


LDA 


SUBTBL, Y 




131 


LDA 


£$6A 


;non =) teste si oause 


191 


PHA 


;sauve la partie haute 


132 


BVS 


STPRMPT1 


; flashe '*' si oui. 


19? 


i DA 


SUBTBL+l.Y :et la partie Basse 


133 SETP8MPT LDA 


£'»' 


; inverse '*' sinon. 


193 


PHA 

p. in 




;de Tadresse (ordre). 


134 STPRMPT1 Sift 


PROMPT 




194 


i DA 


MODE 




135 MJNZl 


JSR 


CROUT 




195 


JSP 


ZMODE 




136 


LDfl 


PROMPT 




196 








137 


JSR 


COUT 


;affiche le prompt 


197 ***** TABLES DES ORDRES £T DE LEUR ADRESSE **** 


136 


JSR 


RDCHflR 


;et attend une touche. 


19fl 

1 JO 








139 


CMP 


£11 A II 




<qq » irao 


= comnande XOR $30 ♦ $09) 


140 


BNE 


M0NZ3 












141 


LDfl 


fl3L 




XII n-iQTRl 


DFB 


*Ui . HO J 


• frtr.-Rla^ir 

, VU V I 1 Ol P3i- 


142 


BNE 


M0NZ2 




90? 


uro 


«a? i » o+q 


- (rtrl-T) 


143 


DEC 


A3h 




203 


uro 


t as i h a+q 
»a j . hot j 


• ( r*+ r> \ — C\ usM< wo 1 or rpni 


144 M0NZ2 


DEC 


fl3L 






T1FR 
uro 


t DO 1 A D + q 


, . u f\/ 


145 


DEC 


ML 






DFR 

Uro 


TOU . HOT J 


, mini 


146 


LDfl 


£" " 




2flA 


Uro 


*qn i AO+q 




147 K0NZ3 


DIP 


£" " 


:touche esaace ? 




nco 

Uro 


*qq i AQ+q 




148 


BNE 


mm 


;non => attenc une iigne 




1*1 o 




■ (pcnarp) 


149 


lDX 


A3L 


;oui => affiche la orociaine 




DPR 


■1*1 Afl+Q 


! '• ) ttiini — ACQPfchlPiir 
s . / ni mi asacmiJicui 


150 


LDfl 


A3H 


; acresse 


210 


DFB 


"""!48+9 


(") recherche en ASCII 


151 


JSR 


PRNTflX 




21 1 


DFB 


"$"148+9 


(41 ronvprtit en decimal 


152 


DEY 




; (raz Y) 


212 


nFR 

UlO 


^ . HQ' J 


(H.) vpp+nric.P 1p rpc.pt 


153 


LDfl 


£U( „ 




213 


DFR 

UTD 


»t» iAA+q 

S . HO T J 


it) vpr+nriop 1 1 Ainnprc.Anrt 

\ ft / VCL Ir U I ISC A ainUC 1 301 1U 


154 


JSR 


COUT 






DFR 
uro 


• HO" J 


( + ) 
1 ' 


155 


LDfl 


(fl3L),Y 






DFR 

uro 


. Ho ' J 


(-1 


156 


JSR 


PRBYTE 


; et son contenu 




nFR 
uro 


■ -HO T J 




157 


JM 


£">" 




Til 


DFR 

u< o 




(/) rprhprrhp ri* octets 

\ f / l CL 1 IC lb) IC U WW VCV3 


158 


JSR 


COUT 


; entre aarentieses. 


21A 








159 


LDfl 


£":■' 


;mode stowage ci' octets 


219 


DFR 


"•'"48+9 


(•) strirkanp dp texte 


160 .10NZ4 


LDX 


£1 


;siaule la fin de GETLNZ 


770 


DFB 


•<"!48+9 


(O 


161 


JSR 


\XTCHfiR+3 


; attend la suite ce la commance 


221 


DFB 


"=" !48+9 


(=) convert it en hexa. 


152 


JSR 


Z*QDE 




222 


DFB 


">":46+9 


0) depiace vers le haut 


163 


I NY 




;(il y a deja eu une toucne) 


223 


DFB 


"6"! 48+9 


(6)o 


164 NXTITK 


JSR 


SETNUM 


; lit une acresse 


224 


DFB 


"H"!48+9 


(H)exa/flSCII 


165 


STY 


YSAV 




225 


DFB 


"I" 148+9 


(I)nverse 


166 


,_DY 


£SUBTBL-CHRTBL ;34 catwanties ! 


226 


DFB 


"K"!48+9 


(K)eym minuscules 


167 CHSRCH 


DEY 






227 


DFB 


"L" 148+9 


(L)ist 


166 


mi 


MON 




228 


DFB 


"R"!48+9 


(M)ove 


:S9 




CHR-BL,Y 




229 


DFB 


"N" 148+9 


(Mortal 


170 


bne 


CKSRCH 




230 


DFB 


"0" 148+9 


(O)bserve cause 


171 


JSR 


TOSUB 




231 


DFB 


"P-148+9 


(P)ause 


172 


LDY 


YSflV 




232 


DFB 


"Q"!48+9 


(Q)uitte -) $3D0 


173 


JMP 


NXTITM 




233 


DFB 


"R" 148+9 


(R)ead 


174 CRSON 


CMP 


£"+" 


;addition? 


234 


DFB 


"S" 148+9 


(S)tep 


175 


BNE 


CRM0N1 




235 


DFB 


"T" 148+9 


(T)race 


176 


JKP 


flDDITN 




236 


D-B 


"V":48+9 


(V)erify 


177 CR«!OM 


CMP 




; so ust raction? 


237 


DFB 


"W"!48+9 


!W)rite 


178 


BNE 


CRM0N2 




238 


DFB 


"X" 148+9 


(X) supprxme la pause 


179 


JHP 


SOUS^R 




239 SUBTBl 


DDB 


XBASIC-1 




180 CRM0N2 


CMP 


£":» 


jstocnage en nemo ire? 


240 


DDB 


BflSCONT-1 
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24: 


DDB 


RESDSP-! 




300 


STA 


SOFTEV+1 




242 


DDB 


INPRT-1 




301 


EOR 


£$A5 




243 


DDB 


CRMCN-1 




302 


STA 


SOFTEV+2 




244 


DDB 


OUTPRT-1 




303 


JSR 


UP 


■ rpfhonte le curseiir 


245 


DDB 


LtSR-1 




304 


LDY 


£0 




246 


DDB 


BLANK-1 




305 PRMESSG2 LDA 


MESSG2, Y 


•afficne << RESET OK > > +bio' 


247 


DDB 


NJNIASM-1 




306 


JSR 


COUT 




248 


DDB 


SRCHASC-1 




307 


INY 






249 


DDB 


PRDEC-1 




308 


CPY 


£MESSG3-MESSS2 


250 


DDB 


RSTVECT-1 




309 


BNE 


PRMESSG2 




251 


•DDB 


AMPVECT-1 




310 


JMP 


BELL 




252 


DDB 


SETMODE-i 




311 








253 


DDB 


SETMODE-l 




312 ******* STOCKASE D' OCTETS **»««»* 


254 


DDB 


SETMODE-l 




313 








255 


DDB 


SEARCH-1 




314 STORE 


DEX 




;RTN precede d'un octet ? 


256 


DDB 


SETMODE-l 




315 


BNE 


ST0R1 




257 


DDB 


STORETXT-I 




316 


LDA 


A2L 


;oui => va le ranger 


258 


DDB 


LT-1 




317 


STA 


(A3L),Y 




259 


DDB 


PRHEX-1 




318 


JMP 


ST0R2 




260 


DDB 


MOVEUP-1 




319 ST0R1 


LDA 


A3L 




261 


DDB 


60-1 




320 ' 


CMP 


AIL 




262 


DDB 


HEXASC-1 




32! 


BEQ 


ST0R3 


;oui =) conserve i'adresse 


263 


DDB 


SETINV-1 




322 ST0R2 


INC 


A3L 




264 


DDB 


LWINKEY-1 




323 


BNE 


ST0R3 




265 


DDB 


LlST-1 




324 


INC 


A3H 




266 


DDB 


MOVE-1 




325 ST0R3 


INC 


AIL 




267 


DDB 


SETNORM-1 




326 


JMP 


CRM0N4 




268 


DDB 


OBSERV-1 




327 








269 


DDB 


PAUSE-1 




328 ******* STOCKASE DE TEXTE ******* 


270 


DDB 


QUIT-1 




329 








271 


DDB 


READ-1 




330 STORETXT LDY 


£0 


^initialise pointeur ecriture 


272 


DDB 


STEP-1 




331 ST0RTXT1 


LDX 


YSAV 


;recupere pointeur lecture 


273 


DDB 


TRACE-1 




332 


LDA 


INBUFF.X 


; lit caractere suivant 


274 


DDB 


VFY-1 




333 


CMP 


£$8D 


;retour chariot ? 


275 


DDB 


WRITE-1 




334 


BEQ 


ST0RTXT2 


;oui => fin 


276 


DDB 


SUPPAUSE-1 




335 


AND 


INVFLG 




277 








336 


STA 


(A2L),Y 


;non => range le caractere 


278 **** RE-VECTORISE L' AMPERSAND «** 


337 


INC 


YSAV 


;caractere suivant 


279 








338 


INY 




280 AMPVECT 


LDA 


£*4C 




339 


BNE 


ST0RTXT1 


; (saute toujours) 


281 


STA 


AMPERSND 




340 STQRTXT2 RTS 






282 


LDA 


£START 




341 








283 


STA 


AMPERSND+1 




342 *»««*** HEXA/ASCII DISPLAY ****** 


284 


LDA 


£> START 




343 








285 


STA 


AMPERSND+2 




344 HEXASC 


LDX 


£22 




286 


JSR 


UP 


;re*onte le curseur 


345 


STX 


XREG 




287 


LDY 


to 




346 HEO 


LDY 


£0 




288 PRMESSG1 LDA 


MESSS1, Y 


;affiche <( OK »+bip! 


347 


JSR 


PRA1 


;afficne I'adresse 


289 


JSR 


C0UT1 




348 f€l 


JSR 


PRSPACE 


; un espace, 


290 


INY 






349 


LDA 


(A1L),Y 




291 


CPY 


£MESS62-MESS6i 


350 


JSR 


PRBYTE 


; un octet, 


292 


BNE 


PRMESSG1 




351 


INY 






293 


JMP 


BELL 




352 


CPY 


£8 




294 








353 


BNE 


HE1 


; recommence nuit fois 


295 **** RE-VECTORISE LE RESET ****** 


354 


INC 


CH 


;deux espaces 


296 








355 


INC 


CH 




297 RSTVECT 


LDA 


fSTART 


;a partir de maintenant, 


356 


LDY 


£0 




298 


STA 


SOFTEV 


; reset renverra au aoniteur. 


357 HE2 


LDA 


(A1L),Y 




299 


LDA 


f) START 




358 


CMP 


£$20 


; inverse ? 
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359 


BGE 


HE3 




663 


STfl 

1 n 


PCH 






Ul\M 


ftrn 


ft f \ 1 1 \ — \ MIL r\ n "\ 1 

, oui -/ norfnai 


CCA 


TCO 
JDK 


Ql tDDQCA 


1 nnnn+ lnc 7 i^n^ nf r 

, remet ies o octets 


361 HE3 


U! if* 


ftf.fi 


, Cilynotdnt { 




Ooi\ 


raraiT 

unuu ' 




362 


RfiF 


HF4 
nut 




CCC 
ODD 








363 


uiin 


ftflO 


■ mil s\ v\nnm 1 

,oui -/ nurndi 


UOf 




run 




364 HE4 


CMP 


£$A0 


•papapfppo Hp Pftw^pnio 7 


668 


JSR 

OOI\ 


PRNTYX 


•affiphp 1'AflrpctBB 


365 


BGE 


HE5 




669 


JSR 

UO<\ 


RGDSPl 


•sffirhp I rpni*Atrp*; 

.Ol 1 iLIIC ICS 1 C— 13- 1 C3 


TCP, 


pop 

tun 


fc*Lv 


;oui -j ciignotant 


670 


J«P 


WON 


;et retour au moniteur. 


367 ^"i 

wo i rn_o 


T9R 

Jon 


m it 

LUU t 


.arricne ie caractePe 


671 








7£A 


TWV 

■mi 






672 wt« SUPPRESSION DE tfl PflUSE *«* 


36 1 ? 

JO J 


PPY 


£A 




673 








770 


AMP 

one 






674 SUPPflUSE LDfl 


PR0PIPT 




of i 




Hiw 




Did 




£$6fl 


;y-at-il une pause ? 


77? 

Of i 


HL'L 


91 


,avance oe nait icarry-ij 


676 


BNE 


SUPPSE2 


;non =) retour 


77 7 


1 H 


H*L 




677 SUPPSE0 


LDfl 


INBUFF+251 




77£ 
or ** 


DLL 


: 4P7 
fit/ 




578 


STfl 


RNDL 




wi J nto 


TMT 
»r*L 


Hin 




679 


LDfl 


INBUFF+252 




77P. WP7 

OfO "Ci 


1 no 


hah 




680 


STfl 


RNDH 




777 

Of f 


Lrlr 


t*Lv 




681 


LDY 


£2 


;re«et ies trois octets 


Of u 




nco 


■ rmto lor - finnrrnr t^Auw 

,5duv6 iB5 aOreSaBS »wUXX 


682 SUPPSE1 


LDfl 


INBUFF+253.Y 


779 

Of J 


Lnr 


ftPP 
di»Lr 


.trpcD / at 1 tTrp 7 

,VLrrl O \ Ha V »wrrr ? 


683 


STfl 


(RNDL),Y 




ooy 


DISC 


WPA 




684 


DEY 






00 » 


1 no 


Oil 




685 


BPL 


SUPPSE1 




OOi. 


HUP 


f4PA 




686 


LDfl 


£*#' 




7A7 

ouo 




nLO 




687 


STfl 


PROMPT 




7A/i 


1 no 


FA 




688 SUPPSE2 


RTS 






JOo 


1 H 


Q1I 
H1L 




689 








OOu 


TNir 


nln 




690 ***** AFFICHAGE DE J flDRESSE ***♦ 


7A7 MP A 

Out ~LD 


ncr 

UZ.L 


YAPf. 




691 








JDU 


die 


ni_v 




592 0BSERV 


JSR 


CR0UT 


jnouvelle iigne 


OG J 


if an 






693 


LDX 


INBUFF+251 




JV 




OH It 

ll 




694 


LDY 


INBUFF+252 




ji 


RPD 
ecu 


MPYQQT 




695 


JMP 


PRNTYX 




392 


RTS 






696 








638 








697 ***» AFFICHAGE DES RESISTRES **** 


639 ************* PAUSE **♦****♦*«*♦ 


698 








640 








699 RE6DSP 


JSR 


CR0UT 


;nouvelle ligne 


641 PAUSE 


LDA 


(fllL).Y 


;sauve 3 octets 


700 RGDSP1 


LDfl 


£7 




642 


STA 


INBUFF+253,Y ;dans le buffer 


701 


STfl 


CH 




643 


LDfl 


JSRPflU, Y 


;ies remplace 


702 


LDfl 


£flCC 




644 


STfl 


(ftlLJ.Y 


;oar "JSR XPflUSE" 


703 


STfl 


fl3L 




645 


LDA 


ML-l.V 




704 


LDA 


£0 




646 


STfl 


INBUFF+250,Y ;sauve aussi l'adresse 


705 


STfl 


fl3H 




647 


I NY 






706 


LDX 


£$FB 




648 


CPY 


£3 




707 RDSP1 


JSR 


PRSPftCE 


;affiche un esoace, 


649 


BNE 


PflUSE 




708 


LDfl 


RTBL-$FB, X 




650 


LDfl 


£$6fl 


; ('*' ciicnotante) 


709 


JSR 


C0UT 


; " le no« du registre 


651 


STfl 


PROMPT 




710 


JSR 


PREQUAL 


;affiche "=", 


652 


RTS 






711 


LDfl 


flCC+5, X 




653 








712 


CPX 


£$FE 


;exception pour P 


654 JSRPflU 


JSR 


XPflUSE 




713 


BNE 


RDSP2 




655 








714 


LDY 


£8 




656 XPAUSE 


JSR 


SAVE 


;sauve les registres 


715 NXTFLB 


ASL 




;un flag Pans la carry 


657 


PLfl 






716 


PHfl 




;sauve le reste 


658 


SEC 






717 


BCC 


N0TSET 




659 


SBC 


£2 




718 


LDA 


FLGNflM-1, Y 




660 


STfl 


pa 


;<neme ie comoteur pgn. 


719 


BNE 


DSPFLG 




661 


PLfl 






720 N0TSET 


LDfl 






662 


SBC 


£0 




721 DSPFLG 


JSR 


C0UT 


;affiche le flag 



msmmm 

Pom's n° 8 



722 PLfl 

723 DEY 

724 BNE NXTFLG 

725 BEQ RDSP3 

726 RDSP2 JSR PRBYTE 

727 RDSP3 INX 
723 BHI RDSP1 

729 JMP CROUT 

730 FLGNflH ftSC "CZIDB.VN" 
847 

848 **«*««* ADDITION *«*««**««♦» 
849 



;revient oar 'return' 



CLC 
LDA 
ADC 
STfl 
LDfl 
ADC 
STfl 
JSR 
LDX 
LDY 
JSR 
JMP 



ML 
fl2L 
ML 
MH 
A2H 
MH 

UPCURSOR 

ML 

MH 

PRNTYX 

MONZ 



850 ADDITN 
851 
852 
853 
854 
855 
856 

857 FINADD 
858 
859 
860 
861 
862 

863 «*»*«*«* SOUSTRACTION ***§#*#*• 
864 

865 SOUSTR SEC 

866 LDfl ftlL 

867 SBC A2L 

868 STA ML 

869 LDfl MH 

870 SBC ft2H 

871 STfl MH 

872 CLC 

873 BCC -INADD 
874 

875 ***** NOLVEAU SON DE CLOCHE *«*»* 
876 



;remonte le curseur 



877 BELL 


LDX 


£$FF 


878 BELLI 


LDfl 


£$58 


879 BELL2 


LDY 


£$18 


880 BELL3 


DEY 




881 


BNE 


BEL.3 


882 


BIT 


SPKR 


883 


TflY 




884 BELL4 


DEY 




885 


BNE 


BELL4 


886 


SBC 


£1 


887 


BEQ 


BELLI 


888 


BIT 


SPKR 


889 


DEX 




890 


BNE 


BELL2 


891 


RTS 




892 






893 **** ALI3NEMENT DES 


894 






895 UPCURSOR LDY 


YSflV 


896 


STY 


CH 



;revient flVEC X=Y=0 



jpositionne ie curseur 



897 


JSR 


UP 


,a ;a - - y - t U'.pc ■ - c a ' c 


898 








899 3REQLIAL 




J n _ pi 
6- ~ 




900 GOCOUT 


JMP 




•P* "P\/1l3V\t 


901 








902 PRSOACE 


LDA 


C II 11 
m 




903 


BNE 


Gnrnti T 




904 








905 PRCOMfl 


LDA 


f B II 
* 1 




906 


BNE 


GOCOUT 




907 








908 PRNTDOi. 


LDA 






909 


BNE 


GOCOUT 




910 








911 CLOSBRAC LDfl 


On 3 




912 


BNE 


GOCOUT 




913 








914 0PENBRA1 


: LDA 


it 




915 


JSR 


COUT 




916 


LDfl 






917 


BNE 


GOCOUT 




1090 








1091 ***** SfllSIE DES MINUSCULES ***** 


1092 








1093 LHINKEY 


LDfl 


£N£WC0UT 


;modifie les entrees/sorties 


1094 


STA 


CSWL 




1095 


LDfl 


£>N£WC0UT 




10% 


STA 


CSHH 




1097 


LDfl 


£NEWK£YIN 




1098 


STfl 


KSWL 




1099 


LDA 


£> NEWKEYIN 


1100 


STA 


KSWH 




1101 


LSR 


MINFLflG 


;fnajuscuies par defau* 


1102 


RTS 






1103 








1104 NEWKEYIN PHA 




;sauve 1'ancien caractere 


1105 NKO 


LDfl 


(BASL), Y 


;regarde ce qui est affiche 


1106 


AND 


£$DF 




1107 


CMP 


£$DF 


;c'est le curseur ? 


1108 


BEQ 


NK1 




1109 


LDfl 


£»_" 


;non => met-le ! 


1110 


BIT 


SHFTLOCK 




1111 


BPL 


NK2 




1112 


LDfl 


£$FF 


;curseur special en minuscules 


1113 


BMI 


NK2 


; (saute toujours) 


1114 NK1 


PLfl 




;recupere i'ancien caractere 


1115 


PHA 






1116 NK2 


STfl 


(BASL) , Y 


;affiche le caractere 


1117 NK3 


I!C 


RNDl 


;incre«ente le compteur 


1118 


BNE 


NK4 


;saute si pas Ceborde 


1119 


INC 


RNDH 




1120 


LDfl 


RNDH 




1121 


AND 


£$F 




1122 


CMP 


£$01 


;cielai ecoule ? 


1123 


BCC 


NKO 


;oui =) echange curseur/caracte 


1124 NK4 


BIT 


KBD 


jtouche enfoncee ? 


1125 


BPL 


NK3 


;non => avance tempo 


1126 


PLA 






1127 


STfl 


(BASL) , Y 


;restaure I'affic*»ge 



Pom"s n° 8 



:;28 


lDA 


KBD 


•1 *. t 1p rMavipr 


1 1AO 

liov 


ui n 


TtJOIipC V 
iraDurr , a 


, i oriyc uoira ic uuiiei uiaviei 


1129 


BIT 


KBDSTRB 


■acouitte 1p clavier 


1181 NORMOUT 


JMP 


C0UT1 




1130 


CMP 


£$93 


■ctrl-S ' 


1182 








1131 


BNE 


CTRLA 




1183 ♦*« COPIE EN REMONTANT * 


■ ■ ■ ■ * 


1132 


STA 


SHFTLOCK 


•oui =) nasse en minuscules 


no** 








1133 NEXTKEY 


LDA 


(BASl),Y 




IIK MT1UFIIP 

. 1DJ nuvcur 






• na ^nupfap nl iiq 01 
j iic . uuliic ji us ni 


1134 


JMP 


NEWKEYIN 




1186 


JSR 


IT 


■ rornn p 09 r" a OA 


1135 CTRLA 

* - WW W i - 1WI 1 


CMP 


f*81 


;ctri-A ? 






VCQU 
I ijnV 


■rPriinPrp nninteur lecture 


1136 


BNE 






i 1 DO 


TCP 

Jon 


GCTW) 1M 


• 1 i f la ripcf i waf i nvi 
jiifa la ucsv i iiflv iuii 


1137 


lSR 


SHFTLOCK 


*mn -) naccp pn itiaiii^nilpc. 


• 1AQ 








1138 


BPL 


NEXTKEY 




11 VI 


D I T 


YQQU 
lOnv 


■eianvp nnintpur IprturP 


1139 N0L0CK 


BI T 


SHFT' OCK 

wh 11 I —ww.\ 


• nn pc;t pyi ftiniKPtilpc 9 


1 141 


cpr 

OCL, 






1140 




NOSHIFT 


;non =) saute 


1 149 


i no 


OA! 


fCalCUle la longueur 


1141 


STY 


RNDL 


;oui => sauve Y 




SBC 


OIL 

nit 


■rip >a 7nnp A riPnlArpr 


1142 


LDY 


fKTBL2-KTBLl 


- x J** 




nOL. 




1143 TRYCDDE 


DEY 






1 i 3 J 


i no 


0AH 

nH!l 




1144 


BMI 


NOCHANGE 




1 A JO 




Q1H 




1145 


CMP 


KTBLl.Y 


;trouvee dans la table ? 


1 1Q7 


a In 


Q7U 
n«jn 




1146 


BNE 


TRYCQDE 


:twi => Doucle v fois 


1 1QA 
ii 3D 


n r 






1147 


LDA 


KTBL2, Y 


:oui => lit correspondence 


ii j j 


i no 


0^ 


, tr r ueuuiir ia uciiiieie 


1148 NOCHANGE LDY 


RNDL 


•r^cucere Y 


1900 


onr 


091 


■Ar'rpccp ppra^PP 

j Ol ! C33C CL I Q3CC 


1149 


C«P 


f$8D 


jretour chariot ? 


1901 

1£V1 


a I n 


AT' 




1150 


BEQ 


RETURN 




lA-Vi. 


i no 


run 


■ 'nn pnAMPKtrp iar la f 'Vi) 
j ^oii uumiBeiii-i: jai ia !*n/ 


1151 


CMP 


f$98 


;ctrl-X ? 




onr 


09M 
run 




1152 


BEQ 


RETUSN 




IZUU 


CTQ 

am 


HUTl 




1153 


CMP 


£$9B 


: escape ? 


ilVu 


i ny 


Irv 




1154 


BEQ 


RETURN 


'oui =) Qasse en fnaiusc. 


liuVO ITUVCUKI 


i no 


(Oil ) Y 


■pn ! *i i P ii>^ nr*fpf 
, - u j _ tr uii uuucv 


1155 


BIT 


SHIFT 


;touche shift appuyee ? 


iivi 


O i n 






1156 


BPL 


NOSHIFT 


■Qui => ne convert it oas 

h — -* - 1 MW WW1IVWIV*V WU.*J 


-LVU 


ncr 

L/_w 


QAi 




1157 


CMP 


fa" 






i no 






1158 


BLT 


NOSHIFT 


■ne convert it cue les lettres 

jilt htllllbl WAV 1— M 1 i~ — J — U - 1 — 3 


1 A 
XilU 




ftP- 




1159 


ORA 


£$20 


'convert it en minuscule 


±Ll 1 


Dig: 


JUl 




1160 NOSH I FT 


PHA 




:sauveoarde le bon code 


171? 


ncr 






1161 


CMP 


£$95 


:c'est la fleche '->' ? 

■ w v w v • W * • W W# iW * 






OXi 


■ o^" nnintpur rip^*" inaf" i nn 

, CL .■'JlintUi UB3 * 1! lav l UII 


1162 


BNE 


NOARROW 




lOl A 
lii»* 


i no 


ox 




1163 


LDA 


(BASL), Y 


■oui =) lit I'^cran 




unr 


iW' r 




1164 N0ARR0W 


CMP 


£$E0 


;c'est une ainuscule ? 










1165 


BLT 


ENDKEY 






i/Cw 


pun 




1166 


STA 


MINFLAB 


;oui =) positionne le drapeau 


l&AB 


i DO 


fTHw. 


•tpcf rip rip ^Pnlapp*flP>^t 


1167 ENDKEY 


PLA 




;revient avec le vrai code 




CMP 


AIL 




1168 


RTS 




;et retour 




LDA 


A4H 




1169 








ixxi 


SBC 


A1H 




1170 RETURN 


LSR 


SHFTLOCK 


; passe en majuscules 




BCS 


M0VEUP1 


•hnurlp si Oi 1= 01 


1171 


RTS 




;et revient. 


lAfcw 


RTS 






1172 








199A 








1173 KTBL1 


DFB 


11 £ II IIAil 


a" 




MESSAGES ****** 




1174 KTBL2 


DFB 


"MVNV 


P" 










1175 








1227 MESSG1 


INV 


" AMPERSAND OK " 


1176 NEWC0UT 


BIT 


MINFLAG 


;c'est une ainuscule ? 


1228 


HEX 


8D 




1177 


BPL 


NORMOUT 


;non => affiche telle quelle 


1229 l€SSG2 


INV 


" RESET OK 


II 


1178 


LDA 


MINFLAG 


;oui =) affiche la minuscule 


1230 


HEX 


8D 




1179 


LSR 


MINFLAG 


;raz du drapeau 


1231 MESSG3 


HEX 


FF 





Pom's s'adresse a tous ses lecteurs 

Quel que soit votre niveau, vous pouvez avoir des informations, des idees ou des programmes a transmettre aux autres. 
Nous vous prions de nous les faire parvenir afin que nous puissions faire partager ce savoir que vous avez acquis. L'ideal 
est de nous envoyer une disquette avec vos programmes et un article en traitement de texte (Applewriter I ou II, ou tout 
fichier TEXT) sur disquette et si possible aussi imprime, au cas ou nous aurions du mal a le recuperer. N'oubliez pas 
d'indiquer votre adresse et votre numero de telephone ! 



Pom's n° 8 



MONITEUR : 
Recapitulation 



♦8D00.951E 



8D00- 
8D08- 
8D10- 
8D18- 
8D20- 
8D28- 
8D30- 
8D38- 
8D40- 
8D4B- 
8D50- 
8D58- 
8D60- 
8D68- 
8D70- 
8D78- 
SD80- 
8D88- 
8D90- 
8D98- 
8DA0- 
8DAS- 
8DB0- 
8DBS- 
8DC0- 
8DC8- 
8DD0- 
8DD8- 
8DE0- 
8DE8- 
8DF0- 
SDF8- 
8EO0- 
6E08- 
3E10- 
8E1S- 
8E20- 
8E28- 
8E30- 
8E38- 
8E40- 
8E48- 
8E50- 
8E58- 



A9 E2 
Fi 03 
20 84 
73 92 
70 02 
FD fi5 
FD C9 
02 C6 
AO C9 
41 20 
ED FD 
A9 20 
20 78 
fi7 FF 



A5 D9 



8D A4 
DO 03 
03 4C 
4C 60 
DO 8C 

48 B9 
C7 FF 
B2 99 
fl6 A7 
00 01 
E9 Efl 
FE OF 
8D 7D 
93 4A 
6E IB 
8E F 3 
90 2E 
FE 7F 
FE 83 
FE FC 
FE CC 
03 A9 
8D F7 
B9 04 
OF DO 
8D F2 

49 fi5 
AO 00 
C8 CO 



8D FO 
20 93 
FE 20 
24 33 
fl9 2A 

33 20 
DE DO 
41 C6 
AO DO 
41 F9 
Bl 40 
ED FD 
FD 20 
84 34 
AA 8D 

34 4C 
4C 4F 
69 92 
8E 20 
98 OA 
Dl 8D 
BB BC 
9A 9B 
A8 93 

02 04 
EB EC 
FE 82 
FE 96 
8F 46 
FE 17 
FE 17 
94 B7 

94 02 
91 IF 
91 9B 
91 00 
00 8D 

03 20 

95 20 
c 5 4C 
03 A9 
8D F4 
B9 13 
OB DO 



03 A9 
FE 20 
2F FB 

30 04 
85 33 
ED FD 
OC A5 
40 C6 

19 A6 
88 A9 

20 DA 
A9 BA 
C7 FF 
AO 26 
DO F8 
67 8D 
92 C9 
C9 BA 
00 FE 
A8 B9 
48 A5 
BE C4 
9D 9E 

94 95 
05 06 
ED EF 

31 2B 
FE C9 
8F CO 
FE 17 
8E 7A 
FE B5 
FE 5D 

90 C2 

91 75 
A9 4C 
F5 03 
1A FC 
FO FD 
79 92 
8D 8D 
03 20 

95 20 
F5 4C 



91 8D 
89 FE 
D8 20 
A9 6A 
20 8E 
20 35 
40 DO 
3C A9 
40 A5 
A8 20 
FD A9 
A2 01 
Cfl 20 
88 30 
20 9A 
C9 AB 
AD DO 
DO 03 
68 68 
DO 8D 
31 4C 
C6 A9 
9F A4 
96 97 
07 08 
FO F2 
FE 8C 
FE 03 
8E 3D 
FE 17 
Ft IF 
8E 8F 
FE 2B 
03 CF 
r E 35 
8D F5 
A9 8D 
AO 00 
C8 CO 
A9 00 
F3 03 
1A FC 
ED FD 
79 92 



8£60- 
8E68- 
8E70- 
8E78- 
8E80- 
8E88- 
8E90- 
8E98- 
8EA0- 
8EA8- 
8EB0- 
8EB8- 
8EC0- 
8EC8- 
8ED0- 
8ED8- 
8EE0- 
3EES- 
8EF0- 
8EF8- 
8F00- 
8F06- 
8F10- 
8-18- 
8F20- 
8F28- 
8F30- 
8F38- 
8F40- 
6F48- 
8F50- 
8F58- 
8F50- 
6F68- 
a c 70- 
8F78- 
8F80- 
8F88- 
8F90- 
8F98- 
8FA0- 
8FA8- 
8FB0- 
8FB8- 
8FC0- 
6FC8- 
8FD0- 
8FD8- 
8FE0- 
8FE8- 
8FF0- 



CA DO 07 
70 8E A5 
E6 40 DO 
4C 96 8D 
00 02 C9 
91 3E E6 
A2 16 86 
FD 20 AO 
FD C8 CO 
E6 24 AO 
BO 02 09 
09 80 C9 
20 ED FD 
A5 3C 69 
E6 3D A5 
C9 CF DO 
90 06 A9 
C6 hG DO 
AO FO 9D 
20 20 FE 

84 34 A4 
00 02 E6 
EA 48 A5 

85 3F 20 
3C D9 00 
4A DO F4 
40 F9 20 
90 E3 68 
34 20 C7 
4A A4 34 
DO 02 A9 
48 29 3F 
58 C9 A2 
EO 20 8E 
B9 00 02 
EO 90 02 
00 02 DO 
E7 A6 3C 
20 A4 92 
C6 34 20 
A5 3C C5 
08 E6 3C 
3D C9 CO 
06 A5 3C 
60 20 94 
20 FE 20 
43 BO 19 
92 A9 00 
A9 00 E5 
8F 20 AC 
4F A9 BO 



A5 3E 91 40 4C 
40 C5 3C FO 05 
02 E6 41 E6 3C 
AO 00 A6 34 BD 
8D FO 09 25 32 
34 C8 DO EE 60 
46 AO 00 20 92 
92 Bl 3C 20 DA 
08 DO F3 E6 24 
00 Bl 3C C9 20 
CO C9 60 BO 02 
AO BO 02 49 CO 
C8 CO 08 DO E4 
07 85 3C 90 02 
3D C9 CO FO F8 
OC A5 3C C9 F8 
00 85 3C E6 3D 
Qfl 20 OC FD CS 
50 85 31 84 4A 
A4 34 20 A7 FF 
4A 48 A5 3E 99 
4A 68 C9 99 FO 
42 85 3E A5 43 
8E FD AO 00 Bi 
02 DO OF C8 C4 
A6 3C A4 3D 20 
fl4 92 20 AO 8F 
C9 AF FO 02 C6 
FF 4C 8E FD 84 
B9 00 02 C3 BD 
CO £6 34 A4 4A 
99 00 02 E6 4A 
FO 04 C3 AO BO 
FD C5 4A AO 00 
FO OF Bl 3C C3 
29 IF 29 3F D9 
OF C8 C4 4A DO 
A4 3D 20 40 F3 
20 AO 8F 90 D6 
C7 FF 4C 8E FD 
3E A5 3D E5 3F 
DO 02 E6 3D A5 
FO F8 C9 CF DO 
C9 FF FO EA 28 
92 20 42 FC 20 
ED 8F A9 7F C5 
20 48 F9 20 BO 
38 E5 42 85 3E 
43 85 3F 20 ED 
92 60 A2 04 86 
85 4E A5 3E DD 



8FF8- 
9000- 
9008- 
3010- 
3018- 
9020- 
9028- 
3030- 
9038- 
3040- 
3048- 
3050- 
9058- 
3050- 
3068- 
3070- 
3076- 
9080- 
9088- 
9090- 
9098- 
90A0- 
30A8- 
90B0- 
90B8- 
90C0- 
90C8- 
90D0- 
90D8- 
90E0- 
90E8- 
90F0- 
90F8- 
3100- 
3108- 
3110- 
9118- 
9120- 
9128- 
9130- 
9138- 
9140- 
9148- 
9150- 
9158- 
9150- 
3168- 
3170- 
3178- 
3180- 
3188- 



25 90 A5 3F 
OD 85 3F A5 
85 3E E6 4E 
E8 CA FO OA 
85 4F 24 4F 
FD CA 10 CD 
E8 10 00 00 
00 85 3C 85 
10 OF B9 00 
30 OA C9 OA 
02 88 10 EE 
4A A4 3E B9 
20 BE 90 65 
65 3D AS 20 

90 8A 65 3C 
3D 85 3D E6 
34 20 94 92 
34 20 A8 92 
20 40 F9 A9 
2C 20 48 F9 
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FD 2A 90 90 
3E FD 25 90 
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ED FD 20 9B 
FE DO 16 AO 
05 B9 5D 91 
20 ED FD 68 
03 20 DA FD 
8E FD C3 DA 
D6 CE A9 01 
91 A2 00 20 
FF C9 08 90 
AD 61 CO 30 
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La vie de votre revue depend de son nombre d'abonnes. Plus vous etes nombreux. plus nous pouvons vous 
rendre service, par 1'augmentation correspondante de nos moyens comme par le plus grand nombre de contribu- 
tions que nous recevrons- (orcement de vous. Nous avons volontairement choisi une politique de disquettes a bon 
marche : ainsi, lorsque vous vous abonnez avec disquettes. chaque disquette vous revient a moins de 45 francs 
TTC, port compris ! Un abonnement a quatre numeros coute aujourd hui 295 francs. Cela ne sera-t-il pas large- 
ment amorti si unc seule des 200 pages de texte que vous trouverez en quatre numeros vous resoud ce pro- 
bleme sur lequel vous sechez Ion a vite fait de perdre deux ou trois jours sur un probleme) ? Dans de nombreux 
numeros. nous vous avons offert des programmes comparables a ceux qui sont vendus de 250 a 500 francs dans 
les boutiques. Profitez-en ! 
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Vous avez un Apple ou 
un ordinateur personnel IBM. 

Beaucoup de logiciels 
sont utiles. 

Celui-d est indispensable. 



PFS Gestion 

•Permet en un minimum de manipulations et 
de temps de creer votre Fichier (clients, 
fournisseurs, stock, bibliotheque, etc.). 

•Tres nombreuses possibilites de recherche: 
nombreux criteres de selection applicables 
a plusieurs zones du Fichier en meme temps. 

•Nombreuses possibilites d edition (fiches, eti- 
quettes, mailings, etc.). 

»Autres fonctions : modification du dessin du 

«§~^ 



de Fichiers : 

Fichier, copie totale ou partielle du Fichier, 
ajout de nouvelles fiches, suppression, re- 
cherche et mise d jour, recherche et edition. 



Best-seller aux Etats-Unis, plus de 150.000 
programmes vendus. 



PFS Gestion de Fichiers peut etre complete 
par PFS Report (programme de tri et dedi- 
tion de listes et calculs) et PFS Graph (pro- 
gramme d'edition sous forme de graphi- 
ques, histogrammes, parts de gateau, etc.). 



Bon de commande 

A retourner d Medipost 45212 Montargis Cedex - Tel. (38) 85 54 73 



POM'S 



Je commande PFS Fichier □ 

PFS Report □ . . 

PFS Graph □ PROGRAMME 



PRIX PAR 



Apple II ou II E 


APPLE III ou IBM PC 


1095F + TVA= 1 298,67 F 


1475F + TVA= 1 749,35 F 



Fonctionnant pour Apple II □, Apple II E □, Apple III □ et IBM PC □ (sauf PFS Graph) soit un total de 
Reglement 6 la commande: Cheque bancaire □ Cheque postal □ d I'ordre de Medipost 
Nom Societe 



Adresse 



Tel. 



Date 



Signature 



facfure acquittee sera jointe a votre livraison. 
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Notions de base : 
gestion de fichiers 



Gerard Michel 



Cet article est complementaire de 
celui publie dans le Pom's 4. II pre- 
serve une autre facon de gerer des 
fichiers selon le principe de la "table 
de reference" (ou table d'index) et 
des fichiers de donnees a Acces Di- 
rect. 

Ainsi que vous pourrez le constater 
en examinant le programme, ou en 
futilisant, les procedures de "menu", 
de saisie et de controle des donnees 
sont reduites a leur plus simple ex- 
pression : nous ne nous interesserons 
ici qu'aux aspects specifiques de la 
gestion des fichiers. 



Principes generaux 

Les donnees sont stockees dans un 
fichier a acces direct (FIC). Chaque 
enregistrement de ce fichier corres- 
pond a un "article" et chaque article 
est repere par une cle unique et stric- 
tement personnelle (nom d'un client, 
numero de code d'un produit...). 
Dans notre exemple, la cle se 
compose de 6 caracteres alphanume- 
riques quelconques. 
Pour retrouver un enregistrement a 
partir de sa cle, il faut constituer une 
table d'index qui donne, en face de 
chaque cle, l'adresse de l'enregistre- 
ment correspondant dans FIC (aug- 
mented de 1000 dans notre exem- 
ple). Ainsi, un element de la table est 
une variable V$, avec : 
LEFT$(V$,6) valeur de la cle et 
VAL(MID$(V$,7,4))-1000 adresse de 
I'enregistrement. 

Les elements de cette table doivent 
etre classes dans l'ordre alphanume- 
rique. Pour en retrouver un dans la 
liste, on utilise une procedure de re- 
cherche dite dichotomique. 

La question qui se pose maintenant 
est de savoir comment sera stockee 
cette table et ou s'effectueront les 
operations de recherche. 
Dans le Pom's 4, nous avons aborde 
la solution consistant a stocker la 
table dans un fichier sequentiel. Ce 
fichier est lu integralement en me- 
moire centrale au debut des traite- 
ments et recopie a la fin. Toutes les 
operations de recherche s'effectuent 
en memoire. 

Cette solution permet des recherches 
et une mise a jour de la table tres 
rapides, en cas d'ajout ou de sup- 
pression. Par contre, elle impose de 
lire la table integralement chaque fois 
qu'on lance les traitements et surtout, 



si les cles sont longues et nombreu- 
ses, elle pose des problemes de satu- 
ration de la memoire centrale. 

L' alternative envisagee ici consiste a 
stocker la table d'index dans un fi- 
chier a acces direct (TAB). Ceci per- 
met d'effectuer les recherches sur 
disquette (toujours selon les principes 
de la recherche dichotomique) et de 
liberer une capacite memoire non 
negligeable. 

Evidemment, la recherche d'une cle 
donnee est legerement plus lente, 
mais c'est surtout pour la mise a jour 
de la table que le temps de traite- 
ment risque de subir une degradation 
sensible. Pour ajouter une cle dans la 
liste, par exemple, il faut "reculer" 



Pour reduire la portee de ce pro- 
bleme, nous utilisons ici une mini- 
table de reference en memoire (pour 
les creations notamment) et un deca- 
lage des mises a jour sur disquette 
par rapport aux traitements courants. 



Variables Principales 

Les variables principales sont listees 
dans l'ordre de leur apparition dans 
le programme. 

Kl, K2, A$ : indices et variable cou- 
rants 

NC : nombre d' elements dans la 
table "tampon" en memoire cen- 
trale. 




toutes celles qui lui sont superieures; 
si elles sont nombreuses, et compte 
tenu des performances du DOS, on 
pourrait parfois attendre bien plus 
d'une minute avant de passer a 1' arti- 
cle suivant. 

Une autre solution consiste a avoir 
une table d'index qui indique, pour 
chaque article, la position du prece- 
dent et celle du suivant dans l'ordre 
alphabetique. La recherche d'un arti- 
cle donne est alors plus longue, mais 
la mise a jour plus rapide. En effet, 
P insertion d'un article, par exemple, 
ne necessite la modification que de 
Pindex des articles entre lesquels le 
nouvel article doit s'inserer. 



S$ : cle, completee par des blancs si 

necessaire. 
NT : nombre d' elements dans la 

table sur disquette. 
N$ : tableau des cles en memoire. 
PL% : liste des adresses libres dans 

le fichier FIC (liberees par une an- 

nulation). Cette liste est stockee 

dans un fichier sequentiel. 
TD : nombre de cles annulees sur 

disquette au cours d'une phase de 

traitement. 
NL : nombre d'adresses libres dans 

FIC. 

NZ : nombre d'elements "vivants" 

dans la table sur disquette. 
ZK : indique la position virtuelle 
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d'une nouvelle cle dans la table 
sur disquette. 
A : utilise pour la re-creation de cles 
annulees. 

Analyse du programme 

Dans tous les cas, la cle entree au 
clavier est tout d'abord recherchee 
sur la disquette. Si elle existe, on si- 
gnale une eventuelle annulation an- 
terieure (ligne 350). Si elle n'existe 
pas, on la cherche alors en memoire, 
apres avoir note sa position virtuelle 
sur disquette (ligne 360). 

1) Creation d'un article (homony- 
mes ihterdits). La limite de 50 impo- 
see au nombre de creations sans 
mise a jour sur disquette depend en 
fait, bien sur, du niveau de saturation 
de la memoire (ligne 390). 
Le principe consiste a faire la mise a 
jour uniquement sur la table en me- 
moire (a la restriction ci-dessus pres) 
pendant le traitement lui-meme. Les 
creations peuvent ainsi s'enchainer 
sans delai d'attente sensible entre 
chacune d'elles (lignes 410 et 420). 
S'il s'agit de la re-creation d'une cle 
prealablement annulee, celle-ci est 
simplement reecrite integralement 
(cle plus adresse de l'article) a sa 
place dans la table sur disquette 
(ligne 405). Aucune autre mise a jour 
n'est necessaire pour ce type de 
creation, ni sur disquette, ni en me- 
moire. 



Les donnees sont ensuite enregis- 
trees a l'adresse R dans FIC. 

2) Modification et consultation 
d'un article. Ces deux operations 
ne posent guere de problemes, dans 
la mesure ou Ton sait deja comment 
retrouver la cle et l'article qui lui cor- 
respond. 

3) Annulation. La limite de 50 im- 
posee au nombre d'adresses libres 
gardees en memoire appelle la 
meme remarque que pour les crea- 
tions. 

L' annulation d'une cle qui se trouve 
dans la table tampon (cle creee au 
cours de la meme execution du pro- 
gramme) est prise directement en 
compte (ligne 520). Cette cle ne sera 
done pas recopiee sur disquette en 
fin de traitement. 

Si la cle se trouve dans la table per- 
manente, on remplace simplement 
l'adresse de l'article correspondant 
par A, sans proceder au decalage de 
la table (ligne 510). 

4) Fin de traitement 

Nous abordons maintenant le pro- 
bleme principal, du moins en ce qui 
concerne le temps de traitement, a 
savoir la mise a jour de la table sur 
disquette. 

S'il s'agit de la toute premiere phase 
de creation, cependant, il suffit de re- 
copier directement la table tampon 
dans TAB (ligne 212). 



Dans le cas contraire, il faut inserer 
les nouvelles cles dans la liste d'in- 
dex, en respectant l'ordre alphanu- 
merique. Nous vous proposons, a 
titre d'exemple, deux solutions possi- 
bles : 

- La premiere consiste a decaler les 
enregistrements du fichier TAB lors- 
que cela est necessaire, exactement 
comme on le faisait en memoire cen- 
trale (lignes 215 et 220 du pro- 
gramme de base). 

- La seconde utilise un fichier inter- 
mediate (TB2), constitue progressi- 
vement par la copie sequentielle des 
elements de TAB entre lesquels vien- 
nent s'intercaler, le cas echeant, les 
cles de la table tampon. 

Pour une meme dimension du fichier 
TAB, le choix entre ces deux solu- 
tions depend surtout du nombre de 
cles a inserer; la premiere est plus ra- 
pide si ce nombre est faible (sauf si 
elles viennent majoritairement en tete 
de liste), et inversement pour la se- 
conde. II est d'ailleurs possible d'utili- 
ser les deux dans le meme pro- 
gramme et de choisir en fonction 
d'un test sur la valeur de NC. 

En ce qui concerne les annulations, 
le traitement assure Tecrasement" 
des cles marquees d'un A (ligne 
280). Cette operation peut etre reali- 
see a Tissue des annulations elles- 
memes, ou de facon independante 
quand aucun travail plus urgent ne 
l'interdit. 



Programme FICHIERS 



ONERR GOTO 9000 



5 


GOTO 


100 






s: 


RETURK 




38 


REM 




52 


IF 


ss 


< AS AND K2 > Kl 


♦ 1 THEN K2 = 


39 


REM 








K: 


GOTO 51 








« RECHERCHE DICHO. » 


53 


IF 


ss 


< AS THEN PRINT 


RUS: RETURN 






« EN MEMOIRE * 


54 


IF 


K2 


> Kl + 1 THEN Kl 


= K: GOTO 51 








55 


K = 


K ♦ 


l: PRINT RTS;K2: 


INPUT NS: IF 



40 Kl = l:K2 = NC: IF NC = O THEN K = 1 1 

RETURN 

41 K = INT <<K1 ♦ K2) / 2):AS = LEFTS 

CNS(K>,6>: IF SS = AS THEN Kl = 
- l: RETURN 

42 IF 5S < AS AND K2 > Kl * 1 THEN K2 = 

K: GOTO 41 

43 IF SS < AS THEN RETURN 

44 IF K2 > Kl ♦ 1 THEN Kl = K: GOTO 41 

45 K = K ♦ 1 : IF SS > LEFTS <NS<K2>,6> 

THEN K = K2 + 1 

46 IF SS = LEFTS <NS(K2>,6) THEN Kl = 

- l:K = K2: RETURN 

47 RETURN 

48 REM 

49 REM * *»**»*»* »*»*##**» » » 

« RECHERCHE DICHO. » 
* SUR DISQUETTE « 



50 Kl = l:K2 = NT: IF NT = O THEN K = 1: 
RETURN 



51 k = int <<k1 + k2> / 2): print rts; k 
: input ns:as = lefts <ns,6): if 
ss = as then kl = - 1: print ru 



56 

57 
98 
99 



SS > LEFTS (NS,6) THEN K = K2 + 
1 

IF SS = LEFTS CNS , 6 ) THEN Kl = - 1 

:K = K2: PRINT RUS: RETURN 
PRINT RUS: RETURN 
REM 

REM •««««««•«««•«»»».««. 

« DEBUT PROGRAMME » 



100 BLS = " " :DS = CHRS (4):D1S = 

CHRS (13) + DS:OTS = D1S + "OPE 
NTAB, Lll" :RTS = DS ♦ "READTAB , R" : 
WTS = DS + "WRITETAB , R" : OFS = D1S 
+ "OPENFIC.LIOO'^RFS = DS + "REA 
DFIC,R":WFS = DS + "WRITEFIC , R" 

105 OLS = D1S ♦ "OPENPL" :RLS = DS + "REA 
DPL" : WLS = DS ♦ "WRITEPL":CLS = D 
S ♦ "CLOSE" : RUS = DS + "PR£0" 

110 DIM NS<50) ,PL*(50> 

118 REM 
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119 REM 



OUVERTURE DES 
FICHIERS 



120 zx = i:nc = o:td = o:z = o: print ot 

S: PRINT RTS;0: input nz,nt 
130 ZX = 0: IF Z = 5 THEN NZ = 0:NT = 
140 ZX = 2-.Z = O: PRINT OLS: PRINT RLS : 
INPUT NL 

150 ZX = O: IF Z = 5 THEN NL = 0: GOTO 1 
70 

160 FOR 1=1 TO NL: INPUT PLX(I): NEXT 



170 



180 



190 
198 
199 



PRINT DS"CLOSEPL": PRINT OFS : PRINT 

RUS:Z = 
PRINT : PRINT : PRINT "1-CRE. 2-MO 

D. 3-CONS. 4-ANN. 5-MAJ ANN. 

6-FIN";: GET ZZS: PRINT : PRINT : 

ZZX = VAL (ZZS): IF ZZX < 1 OR Z 

ZX > 6 THEN 180 
IF ZZX < 6 THEN 340 
REM 

REM *«»*•«»««»«•»»««•»«« 
« FIN TRAITEMENT » 



200 IF NC = THEN 230 

205 GOSUB 210: PRINT RUS : GOTO 230 

208 REM 

209 REM »••«••«»«•••»•»»••»« 

» MISE A JOUR DES « 
• CREATIONS 



210 
212 



215 



220 



230 
240 



250 

258 
259 



IF NT > THEN 215 

PRINT DS-CLOSETAB": PRINT OTS: FOR 
I = 1 TO NC:ZS = LEFTS (NSC I), 10 
>: PRINT WTS;I: PRINT ZS:NZ = NZ 
+ 1 :NT = NT ♦ l: NEXT : RETURN 

FOR I = 1 TO NC:K = VAL < MIDS (NS 
(I),1D) + I - 1 : IF K < = NT TH 
EN FOR L = NT TO K STEP - 1 : PR 
INT RTS;L: INPUT ZS: PRINT WTS;L 
+ l: PRINT ZS: NEXT 

NZ = NZ ♦ l:Z* = LEFTS (NS(I),10>:N 
T = NT ♦ 1 : PRINT WTS;K: PRINT ZS 
: NEXT I: RETURN 
IF TD = THEN 310 

INPUT "OK POUR M.A.J. ANNULATIONS " 
;ZS: IF ZS < > "O" AND ZS < > " 
N" THEN 240 

IF ZS = "N" THEN NZ = NZ - TD: GOTO 
310 

REM 

REM «««»«»«««««»•».».«». 

« MISE A JOUR DES » 
ANNULATIONS 



260 R = l: IF NT = OR NZ = NT + TD THE 
N 310 

270 PRINT RTS;R: INPUT ZS : IF MIDS (ZS 

,7) < > "A" THEN 290 
280 NT = NT - l: IF R < = NT THEN FOR 

L = R TO NT: PRINT RTS;L + 1: INP 

UT ZS: PRINT WTS;L: PRINT ZS: NEX 

T 

290 R = R ♦ l: IF R < = NT THEN 270 
300 NZ = NT 



310 



340 
348 
349 



PRINT WTS;0: PRINT NZ: PRINT NT: PR 
INT CLS: PRINT OLS: PRINT WLS: PR 
INT NL: FOR I = 1 TO NL: PRINT PL 
X(I>: NEXT : PRINT CLS: END 

IF ZZX = 5 THEN 260 

REM 

REM ««.«»•»»««•»•••»«»«« 

* RECHERCHE CLE 



350 ZK = o:a = O: INPUT "VALEUR DE LA CL 
E ";SS:SS = LEFTS (SS + BLS,6>: 
GOSUB 50: IF Kl = - 1 AND MIDS 
(NS,7) = "A" THEN PRINT "ANNULE" 
:A = K: ON ZZX GOTO 400,180,180,1 
80 

360 IF Kl > THEN ZK = K : GOSUB 40 
370 ON ZZX GOTO 380,430,430,430 

378 REM 

379 REM »«»»«•«•«««•»•«»«»»• 

CREATION » 



380 



390 



400 



405 



410 



IF Kl = - 1 THEN PRINT "EXISTE DE 

JA": GOTO 180 
IF NC = 50 THEN PRINT "MAJ CREATIO 
NS. . .PATIENCE": GOSUB 210:NC = 0: 
PRINT RUS 
FOR I = 1 TO 5: INPUT "VARIABLE/DON 
NEE ";ZYS(I>: NEXT :R = NZ + NC ♦ 
l: IF NL > THEN R = PLX(NL):NL 
= NL - 1 

IF A > THEN NS = SS * STRS (1000 
* R>: PRINT WTS;A: PRINT NS : GOT 
425 

IF K < = NC THEN FOR L = NC TO K 
STEP - l:NS(L * 1) = NS(L>: NEXT 



420 NC 



425 



430 

438 
439 



NC * l:NS(K) = SS + STRS (1000 
+ R) ♦ STRS (ZK) 
PRINT WFS;R: PRINT SS : FOR I = 1 TO 
5: PRINT ZYS(I): NEXT : PRINT RU 
S: GOTO 180 
IF Kl > THEN PRINT "N'EXISTE PAS 

": GOTO 180 
REM 

REM *»»»«*»«»»*«»»»*"»»» 

« LECTURE DONNEES » 



440 ZS = NS: IF ZK > THEN ZS = NS(K) 
450 R = VAL ( MIDS (ZS.7,4)) - 1000: PR 

INT RFS;R: INPUT SS: FOR I = 1 TO 
5: INPUT ZYS(I): NEXT : PRINT RU 

S: FOR I = 1 TO 5: PRINT "DONNEE 

"ZYS(I): NEXT : ON ZZX GOTO 380,4 

60,470,480 

458 REM 

459 REM •«»•»»»«•»»•» »* 

» MODIFICATION » 

460 FOR I = 1 TO 5: INPUT "NOUVELLE DON 

NEE ";ZYS(I>: NEXT : GOTO 425 

468 REM 

469 REM »«» «« «»««« 

« CONSULTATION 

470 PRINT : PRINT "FRAPPEZ UNE TOUCHE" ; 

: GET ZS: GOTO 180 
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478 REM 

479 REM »«»........«.... 

« ANNULATION 



MILOG s'adapte a vos besoins 
Materials : choix, decision 



APPLE lie r Promoting 

APPLE III \^nous consult" 

GOUPIL 3 

COMMODORE VIC 20 coff ret promotion 3 150 F 
Promotion Sharp ENSEIGNEMENT 

PC 1212 Z 850 FTTC 

MZ80 A 6 800FTTC 

f PSOA/ HX-20 prix : nous consulter 

bANCO avec traitement de texte nous consulter 



promotion carte Z 80 colonnes pour Apple + nous consulter 



IMPRIMANTES 

EPSON RX-80 • EPSON FX-80 • CENTRONIC - 
SANCO • PRAXIS 



LOCATION APPLE lie 



... 630 F la semaine 




De nouveaux programmes performants. 
Des solutions pour le dossier medical. 



Nombreux logiciels et progiciels professionnels ou de jeux. 



DEPOT-VENTE 

Vendez votre micro dans notre boutique 



| De particulier a pariiculier 


Neuf 


2 e main 


I ATARI CX2600S 


1 400 


1 000 


EPSON MX 80 


5 500 


4 000 


OLIVETTI 1450 


8 500 


6 000 


GOUPIL 2 




5 000 



Eft? 



FORMATION 

Initiation au basic et utilisation de progiciels. 

FOURNITURES DIVERSES 

Disquettes 3M-Multiset - Rubans - Listings, etc. 

CREDIT BAIL 



A BIENTOT CHEZ: 

MILOG informatique 

12, rue de Constantinople 

75008 PARIS - Tel.: 293.53.38 



480 IF NL = 50 THEN PRINT "CAPACITE PL 
ACES LIBRES ATTEINTE" : GOTO 180 

490 PRINT "TAPEZ 'O' POUR ANNULER" ; : GE 
T ZS: PRINT : IF ZS < > "0" THEN 
180 

500 NL = NL ♦ 1:PL*(NL) = R: PRINT WFS;R 
: PRINT "ANNULE" : IF ZK > O THEN 
520 

510 PRINT WTS;K:NS = LEFTS <NS,6) * "A 
'•: PRINT NS: PRINT RUS:TD = TD ♦ 
l: GOTO 180 

520 PRINT RUS:NC = NC - 1: IF K < = NC 
THEN FOR L = K TO NC:NS(L) = NS 
<L + 1) : NEXT 

530 GOTO 180 

8998 REM 

8999 REM •««•»«»»»«««»«»•»«»» 

• ROUTINE ONERR • 



9000 Z = PEEK (222): IF Z = 5 AND ZX = 

1 THEN 130 
9010 IF Z = 5 AND Zx = 2 THEN 150 
9020 PRINT PEEK (222) : PRINT CLS 



Programme FICHIERS 
(variante) 



199 REM *»»*»»»«»*»»»»»«»«« 
■ M.A.J. CREATION » 
« SOLUTION NO 2 - 
» REMPLACE -->220 » 



200 
205 
210 
212 



215 



IF NC = THEN 230 
GOSUB 210: PRINT RUS: GOTO 230 
IF NZ > THEN 215 

PRINT DS-CLOSETAB": PRINT OTS : FOR 
I = 1 TO NC:ZS = LEFTS (NS(I).IO 
): PRINT UTS; I: PRINT ZS : NZ = NZ 
♦ l:NT = NT ♦ l: NEXT : RETURN 
LL = l:NN = NT: NT = : NZ = NZ * NC : 
PRINT D1S"0PENTB2,L11": FOR I = 1 

TO NN: PRINT RTS;I: INPUT NS : SS 
= LEFTS (NS,6):AS = LEFTS (NS<L 
L),6): IF SS < = AS OR LL > NC T 
HEN ZS = NS: GOTO 222 
220 ZS = LEFTS ( NS ( LL) , 10 ) : LL = LL ♦ 1 : 
1 = 1-1 

222 NT = NT ♦ 1: PRINT DS"WRITETB2 , R" ; NT 
: PRINT ZS: NEXT I: IF LL > NC TH 
EN 226 

224 FOR I = LL TO NC:NT = NT + 1:ZS = 

LEFTS (NS(I),10): PRINT DS"WRITET 
B2,R";NT: PRINT ZS: NEXT 

226 PRINT CLS: PRINT DS"DELETETAB" : PRI 
NT DS-RENAME TB2, TAB" : PRINT OTS : 
PRINT OFS: RETURN 
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Francisez le DOS 

Philippe Krepper 



Si vous Stes lasse de recevoir les messages d'erreur du 
DOS en anglais, voici un petit programme qui vous per- 
mettra de les franciser. Les messages habituels apparais- 
sent en anglais un par un; il vous reste a indiquer a cha- 
que fois le message en franqais que vous voulez utiliser a 
sa place. Des la fin du programme, les nouveaux messages 
d'erreur sont operationnels,et memorises sur la disquette 
dans le fichier MESSAGE; leurs positions sont enregistrees 
dans le fichier TABLE. 



Sauvegarde du DOS 

Si vous venez d' utiliser ce programme pour modifier les 
messages du DOS, il vous suffira d' initialiser une disquette 
comme d' habitude pour que son DOS soit modifie en 
consequence, sous reserve que la longueur totale de vos 
messages soit restee inferieure a 202 caracteres. Si celle-ci 
est superieure a 202 caracteres mais inferieure ou egale a 
252, vous ne pourrez pas initialiser une disquette avec ce 
DOS mais vous pourrez charger les messages en francais 
en "BLOADant" TABLE et MESSAGES. 



Chargement des messages 

Si vous desirez a un moment donne modifier les messages 
d'erreur du DOS par ceux que vous avez crees avec ce 
programme, il suffit de mettre la disquette sur laquelle se 
trouve la table dans le lecteurs et de faire "BLOAD 
TABLE". A partir de ce moment, vous pouvez verifier que 
les nouveaux messages sont actifs. 



Verification des messages 

Supposons que vous ayez un programme verrouille bap- 
tise HELLO, un programme integer INTEX, et que le nom 
de fichier ZZZ ne soit pas utilise. Voici les messages habi- 
tuels que vous devez recevoir, en essayant les exemples 
non exhaustifs indiques ci-dessous. 



WUTiL£. DE CM6BCHBK. I. 'AUTRE 
6oi_n- .., -it U'«j coupe. ! 



OPEN ZZZ 
LOAD ZZZ 
SAVE ZZZ.V49 
SAVE ZZZ.S9 
BLOAD HELLO 
INT 

LOAD INTEX 
SAVE HELLO 



Not direct command 
File not found 
Volume not found 
Range error 
File type mismatch 
Syntax error (si non charge) 
Language not available 
File locked 

Avec une disquette protegee contre l'ecriture : 

SAVE ZZZ Write protected 

Apres avoir enleve la disquette : 

SAVE ZZZ I/O error 

En mettant une disquette pleine : 

SAVE ZZZ Disk full 

NDLR : faites BLOAD TABLE. POM'S et BLOAD MESSA- 
GES. POM'S avec la disquette d'accompagnement de 
Pom's. Vous aurez un echantillon de ce que Von peut ob- 
tenir en essayant ces exemples. 




REM ««« DOS . ERREUR ««« 

**« APPLE 48 K «»» 
«"»« AVEC DOS «*« 

1 TEXT : HOME : VTAB 5: PRINT " AVEC LE 

PROGRAMME SUIVANT VOUS ALLEZ 
POUVOIR TRADUIRE LES MESSAGES D'E 
RREUR DU S.E.D EN FRANCAIS , MAI 
S L' ENSEMBLE DE VOS MESSAGES NE 

DOIT PAS DEPASSER 252 CARaCTER 
ES. " 

2 PRINT : PRINT " ET SI L' ENSEMBLE DE 

VOS MESSAGES NE DEPASSE PAS 2 
02 CARACTERES ALORS LES NOUVEAU 
X MESSAGES SERONT ENREGISTRES 
DANS UNE ZONE MEMOIRE DU S.E. 
D ET TOUTES LES DISQUETTES 
INITIALISEES" 

3 PRINT ■' A LA FIN DE CE PROGRAMME CON 

TIENDRONT LES MESSAGES FRANCAIS. 
": PRINT : PRINT " POUR COMMENCER 

APPUYEZ SUR UNE TOUCHE" : POKE 
- 16368,0 

5 DATA "LANGUAGE NOT AVAILABLE" , "RANGE 
ERROR", "WRITE PROTECTED" , "END OF 
DATA", "FILE NOT FOUND" » "VOLUME MI 
SMATCH","I/0 ERROR", "DISK FULL"," 
FILE LOCKED" , "SYNTAX ERROR", "NO B 
UFFERS AVAILABLE", "FILE TYPE MISM 
ATCH" , "PROGRAM TOO LARGE" 
7 HIMEM: 38143: DIM AS < 15 > , BS ( 15 > : FOR 
L = 1 TO 15: IF L = 2 THEN L = 3: 
DATA "NOT DIRECT COMMAND" 
10 READ BS(L>: NEXT L:E = 3 : B = 3: WAIT 
- 16384,128: HOME : POKE - 163 
68,0: FOR L = 1 TO 15: PRINT "MES 
SAGE ERREUR N0:";L;: IF L = 2 THE 
N PRINT ",3": :L = 3 
20 INVERSE : PRINT : PRINT : PRINT BS(L 
>: PRINT : NORMAL : INPUT "NOUVEA 
U MESSAGE ";AS(L):X = LEN (ASCL) 

IF X = THEN ASCL) = BS(L>:X 
= LEN CAS(L>>: PRINT : PRINT "JE 
PRENDS '";BS<L>; : PRINT "COMM 
E NOUVEAU MESSAGE": 
25B=B+X:E=E* LEN <BS(L>>: IF B 
> 252 THEN PRINT : PRINT "VOUS N 
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it, 

55 




INFORMATIQUE 
ELECTRONIQUE 
FRANQAISE 



Societe Anonyme au Capital de 1 099080 F 
228, rue Lecourbe, 75015 PARIS - Tel. : 828.06.01 + 



Le SPECIALISTE FRAN^AIS 
de la MICRO-INFORMATIQUE 




'AVEZ DROIT QU'A 252 CARACTERES ! 
"; CHRS C7): FOR T = 1 TO 2500: N 
EXT T: RUN 

30 PRINT : IF B > E THEN PRINT "VOUS A 
VE2 DEJA UTILISE ";B - 3;" CARACT 
ERES" : PRINT "ALORS QUE LE S.E.D 
N' EN UTILISE QUE ";E - 3: GOTO 35 
33 PRINT "VOUS N'AVEZ UTILISE QUE ";B - 
3;" CARACTERES": PRINT "AU HEME 
NIVEAU LE S.E.D EN UTILISE " ; : IF 
B < E THEN PRINT : PRINT "DEJA 



PRINT E - 3 

PRINT " 

... NEXT L:A = 43377 :Q 

= A: IF B > 205 THEN A = 38144:0 
= A 

3:C = INT <A / 256) :D = A - <C » 
256): POKE 42762, D: POKE 42763, C 
: POKE A, 13: POKE A ♦ 1,7: POKE A 

* 2,141:A = A + 3: FOR l = 1 to 
15: IF L < > 2 THEN FOR M = 1 T 
O LEN CASCD): POKE A, ASC ( MID 
S CASCD ,M,1) ) :A = A + 1: NEXT M : 
POKE A - 1, PEEK (A - 1 ) + 128 :B 
= B ♦ LEN CASCD) 
POKE 43584 + L,B: NEXT L: HOME : VTA 
B 5:XS = " VOUS POUVEZ CONSERV 
ER VOS MESSAGES" 
IF C = 169 THEN PRINT " VOUS N'AVEZ 
PAS DEPASSE 202 CARACTERES VOUS 
POUVEZ DONC CONSERVER LES NOUVEA 
UX MESSAGES SIMPLEMENT EN INITIAL 
ISANT UNE DISQUETTE OU ALORS" : XS 



40 B = 



DISTRIBUTION, CONCEPTION, FABRICATION 
ASSISTANCE TECHNIQUE 



MICRO-ORDINATEURS 
TERMINAUX INTELLIGENT^ 
SYSTEMES INDUSTRIELS 
SYSTEMES SCIENTIFIQUES 
CARTES INTERFACES 
CAISSE ENREGISTREUSE 
INTELLIGENTE 
SYSTEMES CODE-BARRE 
LECTEURS DE BADGES 
DISQUES 



MEMOIRES DE MASSE 
SYSTEME MULTIPOSTES 
RESEAUX 

MULTI-UTILISATEURS 

ALIMENTATIONS 
DE SECURITY 

GESTION STOCK 
FACTURATION, etc. 
COMPTABILITE GENERALE 
MAINTENANCE 



CENTRE DE DEMONSTRATION : 193, rue de Javel. 75015 PARIS 



90 
100 

110 



120 



125 

130 



140 



PRINT XS;" EN SAUVANT LA TABLE ET 
LES MESSAGES ET EN LES FAISANT 
CHARGER PAR VOTRE PROGRAMME D 
E SALUTATION": IF C < > 169 THEN 

PRINT " ET ENFIN EN Y AJOUTANT 
LES INSTRUCTIONS SUIVANTES : " : INV 
ERSE : PRINT : HTAB 3: PRINT "HIM 
EM : 38143 : P0KE42762, " ; D; " : POKE4276 
3,";C 

NORMAL : PRINT : POKE - 16368.0: PR 
INT " VOULEZ VOUS QUE JE SAUVE L 
ES MESSAGES ET LA TABLE <0/N)";: 

GET RS: IF RS = "0" OR RS = "0" 
THEN PRINT : PRINT CHRS <4)"BSA 
VE TABLE, ASA A3F, L16" : PRINT CHRS 
< 4 ) "BSAVE MESSAGES , A" ; Q ; " , L" ; B 
HOME : PRINT "ANCIENS MESSAGES /";: 
INVERSE : PRINT "/ NOUVEAUX ME 
SSAGES": NORMAL : IF C = 169 THEN 
HIMEM: 38400 
FOR L = 1 TO 15: IF L = 2 THEN L = 3 
X = LEN <BS(L)> + LEN <AS(L)>: IF 
X > 39 THEN 120 
PRINT BSCL);: INVERSE : HTAB 41 - 
LEN CASCD): PRINT ASCL);: GOTO 1 
40 

PRINT BSCL)::Y = LEN CASCD) :Z = 
LEN CBSCD):W = 40 - Z : FOR M = W 
TO 1 STEP - l: IF MIDS CASCD. 
M,l) < > " " THEN NEXT M 

INVERSE 

WS = LEFTS CASCD, M - 1 ) : YS = RIGH 
TS CASCD, Y - M): HTAB 41 - LEN 
CWS): PRINT WS:: HTAB 41 - I.RN ( 
YS) : PRINT YS; 
NORMAL : NEXT L 
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Saisie de reels en Pascal 



La procedure Pascal que je vous 
propose autorise la saisie de reels, 
hors exposant, mais avec pave nu- 
merique. Celui-ci est forme par le 
bloc de touches a partir de "7", "8" 
et "9" sur un clavier QWERTY. 11 est 
facile de modifier le programme a 
votre convenance si vous possedez 
un clavier AZERTY, ou si vous prefe- 
rez situer le bloc ailleurs. 



Touches Bloc numerique 
du clavier 

7 8 9 7 4 8 5 9 6 
U I O 4 5 6 

J K L 
M, 



1 2 3 

. 



Philippe Chemin 

NDLR : la procedure PREEL de Mi- 
chel Crimont (Pascal a 12 chiffres) 
fait la meme chose, mais sans le 
pave et de facon moins interactive. 
Par contre, elle permet 1' utilisation 
d'exposants. 



PROGRAM ESSAI: 

TYPE CHOI DEC A = SET OF CHAR: 

VAR TEST: REAL; 

HOME , BS , CR , SON , ESC : CHAR ; 
POINTEXISTE : BOOLEAN : 
PAVE: BOOLEAN: 

PROCEDURE PRINFO; 
BEGIN 
BS:=CHR(8> : 
home:=chr<12) : 
cr:-CHR(13> : 

S0N:=CHR(7> ; 
ESC:=CHR(27> ; 
END:(*PRINFO*> 



FUNCTION PRENCAR < BONSET : CHOI DEC A > : CHAR : 
VAR CH : CHAR : 

BON : BOOLEAN : 
BEGIN 
REPEAT 

READ < KEYBOARD , CH ) : 
IF EOLN ( KEYBOARD ) THEN CH:=CR; 
BON:=CH IN BONSET : 
IF NOT BON 



THEN URITE(SON> 
ELSE IF CH IN C 
THEN BEGIN 
IF PAVE 
THEN BEGIN 
CASE CH OF 
•M- :CH:=' 



"'] 



:ch: 

:ch: 

:ch: 

:CH: 

:CH:='5 
• :CH:='6 
' :ch: = ' . 



•] THEN POINTEXISTE: -TRUE: 



END ; 

IF CH IN 
END ; 
URITE(CH) : 
END ; 
UNTIL BON: 
PRENCAR: =CH 
END; ( •PRENCAR* ) 

PROCEDURE REEL (X.Y.LMAX, DEC I : INTEGER : VAR NOMBRE : REAL > : 



:3TRINGC1J : 
: INTEGER; 
: STRING: 

:choideca: 

: INTEGER: 
: INTEGER: 
: INTEGER: 
POSITIF:BOOLEAN: 
DEBUT : INTEGER : 



VAR SI 
I 

CONT 
OKSET 
VAL 
DENOM 
VIRG 



PROCEDURE SORTIE: 
BEGIN 

gotoxy(x,y> : 

write(nombre:lmax: dec i ) ; 
pave:=falsE: 
exit(reel) : 
end; (.sortie') 

BEGIN 

PAVE:=TRUE; 

OKSET:* CO' . .'9','U' 

POINTEXISTE : = FALSE ; 

S1S» J '; 



'O- , ' J- . . '«' ,ESC] ; 



CONT: = ' ' : 
VIRG:=0; 
POSITIF:=TRUE: 
GOTOXY(X.Y) : 
WRITE (' ' : LMAX ) : 
GOTOXY<X,Y> ; 
REPEAT 

IF LENGTH<CONT)=0 

THEN SI 111 :=PRENCAR (OKSET' CCR, '-'J > 
ELSE IF ( LENGTH ( CONT) = LMAX ) OR <VIRG=DECI) 
THEN S1C1] :=PRENCAR( CCR.BS] ) 
ELSE IF POINTEXISTE 

THEN 51 CI] :=PRENCAR(OKSET*CCR,BS] ) 
ELSE SI CI] := PRENCAR ( OKSET * ECR , BS , '.',',')>: 
IF Sltl)=ESC THEN SORTIE; 
IF Sill] IN OKSET- C* ) 
THEN BEGIN 

C0NT:=C0NCAT<C0NT.S1) : 

IF S1C1) IN I'-'l THEN POSITIF: =FALSE: 

IF (Sill] <> '.') AND (POINTEXISTE) THEN VIRG := VIRG* 1 : 
END 

ELSE IF S1U]=BS 
THEN BEGIN 

WRITE(BS;' '.BS); 

IF POINTEXISTE THEN VIRG : -VIRG-1 : 
CASE CONT CLENGTH ( CONT ) ] OF / 
' . ■ : BEGIN 

pointexiste: =false; 
virg:=0: 

END; 

•-' :positif:=true: 

END; 

DELETE ( CONT , LENGTH ( CONT ) ,1) 
END: 
UNTIL SI CD =CR; 
IF LENGTH (CONT) <>0 
THEN BEGIN 
NOMBRE : =0 ; 
POINTEXISTE:=FALSE: 
OENOM: =10: 

IF POSITIF THEN DEBUT:=1 ELSE DEBUT:=2: 
FOR I:=DEBUT TO LENGTH (CONT) DO BEGIN 
VAL:=ORD(CONTCI) ) : 
IF CONT CI] ■' . ' 
THEN POINTEXISTE: =TRUE 
ELSE BEGIN 

IF POINTEXISTE 
THEN BEGIN 

NOMBRE : = NOMBRE* < VAL-ORD ( ' O ' ) > /DENOM; 
DENOM : E DENOM" 10 : 
END 
ELSE BEGIN 

NOMBRE : =NOMBRE» 10 ; 
NOMBRE :=NOMBRE- (VAL-ORD ( 'O' ) ) 
END ; 
END: 

END ; 
END: 

IF NOT POSITIF THEN NOMBRE := -NOMBRE ; 

SORTIE; 

END ; ( *REEL-> 

BEGIN 
PRINFO: 
WRITE (HOME) : 
REPEAT 

GOTOXY<0,5) ; 

WRITE( -XXXXXXXXXXXXXXXXXXXX' ) ; 

TEST: =-1000.05: 

REEL(4,S,8,2,TEST> : 

G0T0XY(0,7) ; 

WRITELN ( TEST , ' '); 
UNTIL TEST=0; 
END. 
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3 LIVRE5 ET LEUR DISQUETTE 

^ — — ■ - 



VOTRE 



Pour Apple II, II plus et//e DOS 3.3., version 48 K ou plus 



OTOISAHONSDEI 





Vous avez achete le livre "La comptabilite sur Apple II" de Serge et Gerard Llillio, et vous n'avez 
pas le temps necessaire pour taper vous-meme lea programmes sur votre Apple. Dans ce cas, 
cette disquette vous est tout particulierement destinee ! 

L'ensemble des programmes present.es ici constitue la replique exacte des listings proposes 
dans I'ouvrage, a -('exception des ordres pour imprimante. 

Cette disquette doit etre consideree comme une aide au lecteur et non comme un progiciel de 
comptabilite. Ainsi, les trois exemples de libelles cites en annexe dans le livre et ci-inclus, 
doivent etre envisages en tant que points de depart pour une utilisation plus personnels. 
La disquette seule: 185,00 FF/1425,00FB 

Le livre decrit un ensemble de programmes de comptabilite generate en Basic pour petites entreprises, professions libe- 
rates, artisans, commercants. Avec edition des livres-journal. grands livres, balances, bilans. Avec calcul des ratios. Pro- 
gramme special interessant I'adaptation et la personnalisation du plan comptable. Et... quelques "ficelles" pour Apple II. 
Le livre seul : 1 02,00 FF / 785,00 FB 



Voici une disquette qui permet aux lecteurs de "Visicalc sur Apple" d'acceder directement a tous 
les tableaux Visicalc presentes dans le livre. lis trouveront sur cette disquette la replique exacte 
des tableaux presentes dans I'ouvrage. S'y ajoute un programme en Basic permettant I'impres- 
sion des formules d'un tableau, sur une ou deux colonnes, dans I'ordre de A1 vers le bas a droite 
du tableau. 

Attention : cette disquette ne peut etre utilisee sans la disquette maitresse Visicalc 
La disquette seule: 185,00 FF/1425,00FB 

Apres une presentation progressive du modele Visicalc, I'ouvrage presente un ensemble d'exemples d'appliations, 
echeancier de remboursement, feuille d'impot. gestion de copropriete, paye, facilitation..., permettant d'introduire les 
differentes instructions et astuces d'utilisation. 

Le livre seul : 82,00 FF / 635,00 FB 




HERVE HAUj 



I MATHEMAIi, 
ET STATIST! j 









1 




*S— - i 





Demandez notre catalogue gratuit 



Vous avez achete le livre "Mathematiques et statistiques", et vous n'avez pas le temps de taper 
vous-meme les programmes sur votre Apple? Alors cette disquette vous est tout particuliere- 
ment destinee I 

L'ensemble des programmes presentes ici constitue la replique exacte des listings proposes 
dans I'ouvrage. 

Cette disquette doit etre consideree comme une aide au lecteur et non comme un progiciel de 
mathematiques. 

La disquette seule: 185,00 FF/1425,00FB 

Le livre decrit un ensemble de programmes en Basic de mathematiques et de statistiques, niveau superieur. Chaque pro- 
bleme traite comporte une introduction numerique, un expose de la technique de programmation utilisee, un organi- 
gramme detaille et un programme complet suivi d'un exemple d'utilisation. Les programmes sont structures de maniere 
a permettre une insertion dans des programmes plus importants. 
Le livre seul : 92,00 FF / 71 0,00 FB 
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MICRO-EXPO Stand N 14 - N 15 




au Canada 

SCE Inc 

3449 rue Saim-Denis 
Montreal Quebec H 2X3 L 
Tel.. (5141 843 76.63 



P.S.I. DIFFUSION 

BP 86 - 77402 Lagny-s/Marne Cedex 
FRANCE 

Telephone (6) 006.44.35 

P.S.I. BENELUX 

5. avenue de la Ferme Rose 

1180 Bruxelles 

BELGIQUE 

Telephone (2) 345.08.50 



en Espagne 

P.S.I IBERICA 
Ferraz1lMadnd8 
Tel 24730 00 



en Suisse 

CRISPA 

16. avenue de Beaumont 

1700 Fribourg 

Tel : (0371 24.43 76 



DESIGNATION 



Envoyer ce bon 
accompagne 
de votre reglement a 
P S I DIFFUSION 
ou. pour la Belgique et 
le Luxembourg, a 
P.S.I. BENELUX 

□ Paiement par cheque jam □ Paiement en FF par cane Ueue VISA 
la P.S.I. DIFFUSION uniquement) 



NOMBRE 



TOTAL 



PRIX 



SignBlure lobtigatoire pour paiement par carte de credit) 



IV I I I I I I I I I I I I I I I I I Dated-expiration 



_l_ 



NOM 



. PRENOM 



Code post. L 



Ville . 



Pom's vous offre a partir de ce nu- 
mero une rubrique "micro-informa- 
tions" reguliere. On y trouvera pele- 
mele informations et nouveautes 
pour la gamme Apple (II, lie et ///). 
En fin de rubrique sont regroupees 
les adresses des differentes entrepri- 
ses citees, ainsi que les references 
dans le cas d' informations tirees de 
revues etrangeres. Les prix mention - 
ties sont habituellement donnes en 
francs francais TTC. lis ne sont qu'in- 
dicatifs et peuvent etre sujets a varia- 
tion. 



Les lecteurs de 
disquettes 

progres effectues dans le do- 
ie des lecteurs de disquettes 
prennent plusieurs aspects : formats 
reduits (disquettes 3.5 pouces que 
1'on devrait voir bientot apparaTtre en 
compatibles Apple), densites accrues 
(plus de 1 megaoctet sur une dis- 
quette 5 pouces 1/4) et encombre- 
ment reduit. RMI propose des unites 
de disquettes de marque TEAC, en- 
tierement compatibles controleur 
Apple, mais 30% moins hautes. Prix 
controleur : 2950 FF. 

Pour demain, avec les disquettes a 
enregistrement vertical, des disquet- 
tes 5 pouces avec des capacites for- 
matees de 5 megaoctets (2,5 Mo par 
face). Ces merveilles sont encore au 
niveau prototype. Patientez done un 
peu... 



Les imprimantes 

Domaine tres actif actuellement, les 
imprimantes ou Ton vient d'enregis- 
trer coup sur coup plusieurs nou- 
veautes. Tout d'abord, a tout sei- 
gneur tout honneur, les deux 
imprimantes de marque Apple. La 
premiere est de type matriciel (97 
points) et ressemble furieusement a 
la NEC. Rapidite (120 caracteres par 
seconde), souplesse (sept alphabets 
speciaux, huit tailles de caracteres), 
redefinition des caracteres, espace- 
ment proportionnel et copie d'ecran 
graphique. Ses possibilites ainsi que 
son prix (7200 FF avec interface) de- 
vraient en faire une concurrents se- 
rieuse des Centronics, Microline et 
Epson. 

La deuxieme, grace a une impression 
a marguerite, permet une frappe de 




Micro-i 
les 



tres haute qualite. Destinee aux ap- 
plications de traitement de texte ou a 
la sortie de documents de qualite 
professionelle, elle presente des ca- 
racteristiques interessantes : 40 carac- 
teres par seconde (cps), largeur jus- 
qu'a 38 cms (198 colonnes avec 
caracteres resserres), tabulations, jeux 
de caracteres internationnaux... Son 
prix de 19000 FF avec interface la 
reserve cependant aux applications 
professionnelles. 

De son cote, Epson vient de sortir 
deux nouveaux modeles. La FX80, 
tout d'abord, offre de nouvelles ame- 
liorations par rapport a la serie 
MX82 : matrice 9x9, 160 cps, me- 
moire vive de 2K utilisable soit en 
buffer d' entree, soit en redefinition 
de caracteres, possibility de sauts de 
ligne arriere... Son prix est d' environ 
9900 FF avec interface. Quant a 
P autre modele, la RX80, je ne pour- 
rai vous decrire ici ses caracteristi- 
ques car je n'ai pu me procurer la 
documentation. Seul element connu, 
son prix : 6500 FF avec interface. 



Les cartes 

Une nouvelle sorte de carte est en 
train d'apparaftre. II s'agit d'une carte 
comprenant un 6502C (fonctionnant 
a 4 MHz au lieu de 1 MHz pour le 
6502 normal) et 64K de RAM. Un 
petit programme lui permet de dese- 
lectionner le 6502 en place sur la 
carte mere et d'effectuer toutes les 
operations a sa place, a la seule dif- 
ference qu'il les execute 3 a 4 fois 
plus vite. Ce gain de temps ne s' ap- 
plique bien entendu pas aux opera- 
tions avec la disquette qui s'effec- 
tuent toujours avec la meme lenteur. 

Pour exploiter ce gain de temps, il 
faudra que j'essaie le programme 
d'echecs Sargon 2.5 au niveau 6 : je 
ne Pai utilise qu'une fois au niveau 4, 
pour abandonner par "KO" a 3h du 
matin apres 5h d'echanges desespe- 
rement lents. Outre P execution de 
gros programmes necessitant peu 
d'acces disquette, les applications 
graphiques semblent pouvoir offrir de 
nouvelles perspectives dans P anima- 
tion avec cette carte. 

Concue par la societe americaine 
Number Nine, cette carte va etre im- 
portee en France par BIP (Prix fran- 
cais non encore precise ; prix ameri- 
cain : 650 dollars). 



nouveautes 

Jean-Frangois Duvivier 



Steve Watt est anglais. II s'est installe 
a Paris et a fonde Microperiph pour 
distribuer des produits specifique- 
ment consacres a PApple. Parmi les 
bonnes affaires qu'il propose, rete- 
nons la carte 80 colonnes U-Term a 
1490 FF, un dispositif permettant la 
repetition automatique des caracteres 
lorsqu'une touche est laissee enfon- 
cee (inutile pour le He !) pour 110 
FF, des disquettes 3M renforcees a 
180 FF la boite de 10. II a egalement 
importe la carte "Accelerator II" qui, 
grace a un 6502 fonctionnant a 4 
MHz, accelere dans un facteur 3 a 4 
la vitesse d' execution des program- 
mes sur Apple (3950 FF). Si vous 
passez chez lui, dites que vous venez 
de notre part, vous serez bien ac- 
cueilli. Attention, n'hesitez pas a en- 
trer, e'est au premier etage. 

Parmi les nouvelles cartes, citons 
aussi toutes celles qui permettent de 
conserver les informations une fois 
PApple eteint. MPC Peripherals a 
concu une carte 128K a base de me- 
moires a bulles, qui permet de rem- 
placer reellement un lecteur de dis- 
quettes grace au "Disk Emulator", y 
compris au niveau de la non-volatilite 
des informations. 

Autre demarche, celle adoptee par 
Legend qui propose une carte 18K 
en technologie CMOS, avec batterie 
incorporee. Pourquoi 18K ? Parce 
que le DOS prend exactement 18K 
de memoire vive et peut se stacker 
dans cette carte. Ainsi, des la mise 
sous tension, le DOS est present 
dans PApple. Bien entendu, tout 
autre programme peut etre mis dans 
cette carte, pour obtenir un systeme 
"turnkey" executant le programme 
des la mise sous tension de Pappa- 
reil. Toutes les cartes Legend sont 
importees par BIP. Prix de la carte 
18SRC : 1550 FF. 

La carte Legend 128K DE fonc- 
tionne maintenant sur Apple II et He; 
elle est foumie avec interface Le- 
gend, Boot Visicalc (160K utiles), 
programme de gestion de fichiers 
ultra-rapide, simulateur de disque, ... 
et manuel en francais. Nouveau 
prix : 5.600 FF; la carte 64K est dis- 
ponible a 3.600 FF. 

Vous trouverez aussi chez BIP la 
carte "80 colonnes" UltraTerm , qui 
vous donne les choix suivants : 
24*180, 32*80, 48*80, 24*96, 
32*128, 24*132 et 24*160. Compa- 
tibilite avec Visicalc et Applewriter II. 
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Avec la carte PCPI 88CARD, compa- 
tible Apple II et //e, vous ajoutez 64K 
aux 64K de votre Apple, pour un 
total de 128K de memoire centrale. 
Mais surtout, vous disposez du sys- 
teme d'exploitation MS-DOS de 
1'IBM OP. La carte avec le MS-DOS 
et le MBAS1C est vendue 595 FF. Le 
CP/M-86 est disponible en option. 
Fabricant : Personal Computer Pro- 
ducts Inc. (PCPI). 

Autre produit PCPI : l'APPLI-CARD 
offre 64K de plus, un ecran de 70 
colonnes, et le choix entre des pro- 
cesseurs Z80 a 4MHz (295) ou 
6MHz. Avec cela, votre CP/M tourne 
2 a 3 fois plus vite qu'avec une carte 
Z80 habituelle. 



Les communications 

Le Service Calvados de 1' American 
College in Paris etoffe ses services. 
Citons notamment la prochaine mise 
en place d'un service Bourse qui per- 
mettra l'acces a une base de don- 
nees de 20.000 cotations quotidien- 
nes (marches francais et etrangers) et 
la possibility de creation de bases de 
donnees privees. Une documentation 
complete peut etre obtenue sur de- 
mande. 

La societe Communication Interface 
presente un ensemble Microtelex qui 
permet d'acceder a partir d'un Apple 
au reseau telex national et internatio- 
nal. Les avantages par rapport aux 
materiels telex classiques resident 
dans les possibilites de traitement de 
texte, de numerotations abregees, de 
transmission differee et de gestion 
des differents types de rejet du re- 
seau. Autre avantage, et non des 
moindres : le silence ! Le materiel est 
bien entendu agree par les PTT. Do- 
cumentation disponible sur demande. 

Acquisition et 
traitement de donnees 

EUROTRON introduit en France 
1' ISAAC 91A de Cyborg (USA): il 
s'agit la d'un systeme polyvalent 
d'acquisition rapide de donnees et de 
controle de processus. Entrees analo- 
giques (tensions, courants, capteurs 
et transmetteurs 4/20 mA, thermo- 
couples) ou numeriques (via RS232 
et IEEE); sorties analogiques ou nu- 
meriques. 



Les jeux 

Saluons ici la societe Penguin Soft- 
ware qui, face au piratage des logi- 
ciels, essaie de trouver des solutions 
originales. Apres avoir l'an dernier 
ote toutes les protections de ses logi- 
ciels utilitaires graphiques (Special Ef- 
fects, The Complete Graphics Sys- 



tem et Graphics Magician), elle a 
annonce a partir du ler mars un prix 
unique pour tous ses jeux : 19,95 
dollars, ce qui represente entre 200 
et 250 FF. Parmi les jeux edites par 
Penguin Software, notons Pie-Man, 
Spy's Demise, Transylvania, Thun- 
derbombs et Crime Wave. Souhai- 
tons d'une part que l'experience soit 
concluante pour Penguin Software, 
d'autre part qu'elle fasse des emules 
parmi les autres societes. Dernier 
souhait, et non des moindres. que 
tous ces jeux soient tres vite distri- 
bues par des boutiques frangaises a 
des prix raisonnables. 

Les jeux d'aventures ne connaissent 
lus de limites. L'un des plus cele- 
res, Time Zone, dispose de 1400 
images graphiques differentes, le tout 
etant presente sur 6 disquettes recto- 
verso ! Plus recent, Sherwood Forest 
charge ses images en 1 seconde ! 

Les programmes 

LOGAWAL lance la version 3.0, en- 
tierement en francais, du logiciel 
WalCore de gestion de fichiers tour- 
nant sur CP/M. Ce progiciel peut 
traiter 13.000 fiches de 500 caracte- 
res avec acces instantane par l'index, 
tris et selections multi-criteres, im- 
pression en tableaux, etiquettes et 
lettres personnalisees, modification 
de la structure des fichiers existants. 
Prix: 3.143 FF. 

Autres produits de la meme societe : 
version 3.0 de Wordstar en francais 
et systeme de gestion de base de 
donnees InfoStar (combinaison de 
DataStar et ReportStar). Wordstar et 
InfoStar sont vendus au prix de 
25.500 FB HT chacun. 

Magicalc vous donne toutes les fonc- 
tions du Visicalc plus des ameliora- 
tions a un prix plus interessant : 
2.000 FF. Possibilites : colonnes de 
largeur variable, utilisation avec dis- 
que dur, colonnes invisibles ou pro- 
tegees, 70 colonnes par logiciel, re- 
connaissance automatique de 
nombreuses extensions memoire. 
Magicalc est vendu par BIP. 

Executive Briefing System (EBS) est 
un ensemble de deux programmes 
distribues par SOFITEC dont le but 
est de vous permettre la projection 
d' images graphiques. Le premier 
programme sert a composer la pro- 
jection, le second a la presenter. 
Pour la composition : bordures, choix 
de caracteres, histogrammes, ... 

Le programme de gestion de cabinet 
dentaire Agatha du Dr. Gaussen 
vient d'apparattre en version IV. 
Avec la carte Legend, vitesse cinq 
fois superieure. Capacites possibles : 
300, 510 ou 675 fiches de patients 
en cours de traitement. 



La base de donnees Omnis en Pas- 
cal est a present francisee et 
commercialisee par la societe KA. 
Omnis est, selon la publicite, plus 
puissant que DB Master et aussi fa- 
cile a utiliser que PFS. 

Enfin, si vous cherchez a classer vos 
disquettes dans des enveloppes en 
plastique rangeables dans des clas- 
seurs, FRANIC vous donne le choix 
entre plusieurs types de pochettes. 
La feuille plastique avec deux poches 
pour disquettes 5 pouces est vendue 
40 FF la dizaine. 

Le marche des 
micro-ordinateurs 

Le domaine des ordinateurs compati- 
bles Apple se developpe rapidement. 
Proces a la cle, Apple tente d'enrayer 
le phenomene. II semble meme que 
des saisies et destructions soient ef- 
fectuees par les douanes americaines 
lors de l'importation de certains de 
ces materiels aux USA. Outre le 
BASIS 108 dont nous vous parlons 
dans ce numero et le Golem dont 
nous vous parlerons, on peut trouver 
aux Etats-Unis le "Orange+", le "Pi- 
neapple", le "AP-II", le "Franklin 
Ace 1000 et 2000", le "Syscom"... 
et la liste n'est certainement pas 
complete ! 

D'apres une etude de marche de la 
societe "Future Computing", le pare 
des differents micro-ordinateurs s'eta- 
blissait comme suit en fin 1982 : 
Commodore VIC 20: 750.000 
unites, Apple II et ZX80/81 : 
600.000, Texas TI-99/4A : 575.000. 
Une etude qui a le merite de faire le 
point des differentes forces en pre- 
sence, excepte 1'IBM OP qui demarre 
tres fort, mais dont les chiffres sont, 
comme toujours, sujets a caution. 

Les informations 

La revue Softalk (la plus epaisse des 
revues consacrees a 1' Apple : 300 
pages mensuelles) publie le resultat 
d'une etude effectuee aupres de ses 
lecteurs sur les logiciels les plus po- 
pulates parmi ceux commercialises 
entre fin 81 et fin 82. Grand ga- 
gnant : Choplifter (vous savez, l'heli- 
coptere qui va sauver les otages !) 
cree par Broderbund Software. Le 
second, tres detache egalement par 
rapport aux suivants, est Wizardry de 
Sir-tech. Le troisieme n'est autre que 
Locksmith 4.1, effectivement tres po- 
pulate chez certains utilisateurs. 

Pour les possesseurs d' Apple ///, une 
publication "The Apple Three News- 
letter" est editee trimestriellement 
aux USA par Mediaworks. Cout an- 
nuel : 15 dollars (prevoir pres du 
double a cause des frais d' envoi). 



E 



Pom's n" 8 



Ceux de nos lecteurs a qui Pom's ne 
suffit pas et qui se gavent de revues 
etrangeres. pourront trouver les prin- 
cipals d'entre elles chez SIDEG ou 
chez SIVEA, qui se revelent avoir le 
choix le plus etendu (mais surtout 
n'y allez pas pour acheter votre 
Pom's trimestriel ; mystere d'entre les 
mysteres, il y est souvent en rupture 
de stock !). 



Adresses 



BIP - 22 rue Joseph Dijon - 75018 
Paris -Tel (1) 255.44.63 
Communication Interface - 2, place 
d'Aligre - 75012 Paris - Tel (1) 
341.85.85 



EUROTRON - 34 avenue Leon 
Jouhaux - Z.I. - 92167 ANTONY 
CEDEX. 

FRANIC - Rue de la Chapelle - 
B.P.2 - 49190 Beaulieu s/Layon-Tel 
(41) 78.36.55 

Gaussen (Dr. Pierre) - CD Soft - 
59bis rue de la Biche - 30000 Nimes 

KA - 212 rue Lecourbe - 75015 
Paris - Tel (1) 533.13.50 
LOGAWAL - 200 avenue Winston 
Churchill (Bte 22) - 1180 Bruxelles - 
Belgique 

Mediaworks - POB 2757 - San 
Francisco CA 94126 
Microperiph - 60 rue Ducouedic - 
75014 Paris - Tel (1) 321.41.80. Ou- 
vert de 10 a 12h et de 14 a 18h du 
mardi au samedi (ler etage). 



MPC Peripherals Corp. - 9424 
Chesapeake Drive - San Diego. CA 
92123 - USA. Voir Byte Nov 82, 
page 287. 

Personal Computer Products 
Inc. - 16776 Bernardo Center Drive 
- San Diego, Ca. 92128 - USA 
Penguin Software - 830 4th Ave- 
nue - Geneva IL60134 - USA 
RMI - 71 Bd Marceau - 92700 Co- 
lombes - Tel 785.68.89 
Service Calvados - BP 21-07 - 
75327 Paris Cedex 07 - Tel (1) 
705.09.04 

SIDEG - 170 rue Saint Charles - 
75015 Paris - Tel (1) 557.79.12 
SIVEA - 31 bd. des Batignolles - 
75008 Paris - Tel (1) 522.70.66 
SOFITEC - 207 rue Gallieni - 
92100 Boulogne - Tel (1) 605.88.78 



Trues et astuces 



stings disassembles 



Quand on disassemble des programmes en langage ma- 
chine, la commande L du moniteur n'affiche que 20 ins- 
Pour en afficher plus, on peut appuyer plusieurs 
lr L, mais e'est fatigant, surtout s'il faut disassembler 
e longs programmes sur imprimante. 

Pour eviter cela depuis le moniteur. il suffit de faire : 
[adresse] L34:n 

ou n est le nombre de caracteres de l'adresse. de (s'il 



n'y en a pas) a quatre chiffres. II ne faut pas mettre d'es- 
pace. sauf apres le n, ou il est obligatoire. 



Exemples : 
L34:0 
300L34:3 



On trompe ainsi le moniteur : remettre la memoire 34 
lui indique qu'il faut executer des com 
n' caractere de la ligne (ici L), 1'espace 
ment que Ton n'est pas en fin de ligne. 

II faut appuyer sur RESET pour arreter le listing (ou 
CTRL-C si PLE est en memoire). 



mdes a partir du 
indiquant juste- 




Applications 

• Engineering 

• Automation 

• Banc d'essais 

• Controle de processus - Chimie - Psychologie - Physiologi 

LE SUPPORT et LE SERVICE EN PLUS 

division microinformat lout 34, Avenue Leon - Jouhaux , Zl 92167 ANTONY Cede 
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J.P. Information 

Un systeme informatique ne se limite pas 
a sa configuration de base. 

II faut pour I'exploiter un ensemble de logi- 
ciels et interfaces specialisees efficaces. 

C est dans cet esprit que BIP propose ses 
logiciels et interfaces pour Apple 2. 



VOUS INVESTISSEZ EH 
NUCROIHFORMATIQUE, 
FAITE5LE 
EFFICACEMEHT. 

ous allez investir dans un ordinateur personnel. 

Vous voulez etre guide dans votre choix et garantir au 
maximum votre investissement. 

Vous voulez vous servirefficacement de votre ordinateur 
personnel et souhaitez une assistance soutenue et suivie tant sur 
le materiel que sur I'emploi des logiciels. 

MINIGRAPHE MICROIN FORM ATI QUE, creee a 
Boulogne-sur-Seine il y a trois ans par Jean-Louis Orsini, met a 
votre disposition un systeme d 'assistance efficace qui vous per- 
mettradereussir votre investissement etd'optimiser vos resultats. 

Telephonez-lui, il vous donnera toutes les informations 
necessaires. 




UTILISATEURS DE ...CALC : 

Le temps des pionniers de Visicalc avec 40 colonnes 
et 18K memoire est bien depasse ! 

Aujourd'hui, grace a BIP : 

• Utilisez les touches nouvelles de I'Apple 

• Jusqu'a 51 2K memoire. 

• 80 colonnes avec carte, 70/40 sans. 

• Largeur des colonnes independante. 
cachees ou protegees. 

• Stockez les fichiers sur disquette ou disque dur. 

• 16 000 cases utilisables au lieu de 8 000 en Visicalc. 

• Profitez de toutes ces possibility supplementaires 
et beaucoup d'autres, demandez MAGICALC 

des maintenant disponible chez les meilleurs 
revendeurs. 



BON TEMPS AVEC TAMPON 
d'imprimante 

Une interface Tampon d'imprimante a une 
memoire additionnelle qui emmagasine tres vite 
I'information a imprimer et la redistribue a 
I'imprimante a sa Vitesse. 

Elle vous permet de continuer a travailler sans 
attendre la fin de I'impression. 

BIP a toute une gamme d'interfaces. 
renseignez-vous pour trouver celle qui 
correspond a vos besoins. 



BIP 

C'est aussi toute une gamme d'accessoires 
pour les jeux graphiques : joystick, paddles, 
interfaces d'animation stereo sonore et paroles. 

Et toujours : 

• Ventilateur RH Electronic. 

• Carte Interface Video. 

• Carte Synthetiseur Vocal. 

• NOUVELLE Carte 128k LEGEND 
pour Apple II + , II* et /// 



PROMOTION SPECIALE AU MOIS DE JUIN : 
Carte LEGEND 128K -| MAGICALC : 5 700 FF. H.T. 



I 



BIP sera present a MICRO-EXPO stand N 26 

Documentation sur demande. 

En vente chez les meilleurs revendeurs. 



a B.I.P 



J'informatique personnalis&e 

Distributeur : BIP 22 rue Joseph Dijon 75018 Paris Tel. 255 44 63 



Magicalc est une Marque deposee de Ariaci. 
Visicalc est une Marque deposee de Vtsocorp. 
Apple esl une Marque deposee de Apple Computer inc. 
Legend est une Marque deposee de Legend Ind. 



MINIGRAPHE 

MICROINFORMATIQUE 

263, Boulevard )ean-)aures 92100 Boulogne 

608/44/31 
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Courrier des lecteurs 

Olivier Herz 



1 - J'aurais grand besoin d'un pro- 
gramme a compacter les program- 
mes. Ou trouve-t-on ceia ? On peut 
gagner 1/4 de la place memoire oc- 
cupee par le programme. 

2 - S'il vous arrive de retrouver une 
ligne de programme modifiee, par 
exemple un "*" que vous avez mis 
et qui a disparu, ou un token pris 
pour un autre, et si la modification se 
reproduit apres correction, ne cher- 
chez pas la reponse pendant trois 
jours (comme cela m'est arrive). J'ai 
ete jusqu'a ramener ma machine au 
vendeur pour qu'il I'essaye... 

Commencez par verifier les POKEs 
dans votre programme. En particu- 
lier, si vous avez eu le malheur de 
taper POKE 333,33 au lieu de POKE 
33,33 pour un programme de cap- 
ture ou pour Tedition de lignes. le 
POKE modifie a contre-temps provo- 
que, de faqon difficilement previsible, 
ce genre de modification. 

Cela vient de m arriver en entrant en 
machine le programme "Les 4 
ponts", pour lequel il faut remercier 
Olivier Herz. En ligne 100, j'avais 
entre POKE 333,0 au lieu du 233,3. 
Resultat, lors du RUN, erreur en 
ligne 310 ou le E avait disparu de la 
formule a l'endroit du "10*E". J'ai 
essaye de mettre le produit entre pa- 
rentheses : c'est alors le "* " qui dis- 
paraissait ! 

Docteur J. Rozoy - 26 rue du Petit 
Ms - 08000 Charleville-Mezieres 

1 - II existe deux programmes 
commerciaux que nous connaissons 
pour compacter les programmes 
BASIC. Vous en trouverez un dans 
Dakin (voir l'analyse des utilitaires de 
documentation dans Pom's 2), qui 
offre par ailleurs d'autres services. 

Un autre programme commercial, 
Applesoft Optimizer, compacte en- 
core plus les programmes car, outre 
l'elimination des REM et le raccorde- 
ment des lignes raccordables, il opere 
une renumerotation complete et re- 
baptise les variables afin de les rac- 
courcir autant que possible. 

Bien entendu, dans un cas comme 
dans l'autre, il est malaise de modi- 
fier un programme compacte. L' ideal 
est de ne compacter qu'en fin de 
mise au point, et de garder pour les 
modifications eventuelles du pro- 
gramme une version non compactee. 

La place memoire que vous gagnez 
depend de la fagon dont votre pro- 



gramme etait ecrit. Vous gagnerez 
beaucoup de place (parfois jusqu'a 
40%) s'il comporte de nombreuses 
instructions REM, s'il utilise des noms 
de variables longs, s'il possede des 
numeros d' instructions longs et s'il 
met peu d' instructions par ligne. 

2 - Merci ! Nous savions qu'il fallait 
se mefier des POKEs intempestifs, 
mais nous n'avions pas encore ren- 
contre ce probleme. 

Je n'ai pas la fonction CHOOSE sur 
mon Visicalc. Comment doit-on mo- 
difier la formule de la case B20 dans 
1' exemple de feuille d'impots du livre 
"Visicalc sur Apple" pour obtenir le 
bon resultat sans cette fonction ? 

M. Morcrette - 02100 St Quentin 

II suffit de deplacer avec [/M] la ligne 
27 apres les deux lignes suivantes 
(en position 29), puis de remplacer 
dans la formule de la case B20 la 
fonction CHOOSE(B26,A27...M27) 
par LOOKUP(B26,A28...M28). 

Apres avoir lu la lettre d'Olivier Herz 
dans le Courrier des Lecteurs du 
Pom's 4, j'ai essaye de mettre en 
place le mini-assembleur. J'obtiens 
bien le mini-assembleur, mais aussi la 
premiere ligne assemblee. Par exem- 
ple : 

!-2000-:-LDA-#00 me donne : 
2000— A9-00-LDA-* 800 
A partir de la, le systeme "se plante" 
et je dois faire RESET pour en sortir. 
Que faut-il faire ? 

G. Gilbert - 97300 Cayenne 

11 y a en effet une coquille dans ce 
Courrier des Lecteurs : il faut lire 
"8537 :85". 

Je tens a vous livrer une experience 
desagreable que j'ai eue avec le 
compilateur Pascal. J'avais tape la 
sequence suivante : 

VAR NOM : STRING; 



TB 



LBM 
LBV 



TAB: 

INTEGER , 

(* Compteur de bou- 

cle) 

L1BMOR ; 
LIBVER : 



(* Procedures courantes * ) 
etc ... 

A la compilation, j'avais 1 'erreur de 
syntaxe "UNDECLARED IDENTI- 
FIER" a la premiere occurence de 
LBM et LBV, alors que je croyais les 
avoir declarees en tSte de pro- 
gramme. J'ai mis plus d'une heure a 
decouvrir qu'il manquait effective- 



ment I'asterisque avant la parenthese 
fermante en ligne 3, ce que je ne 
voyais pas a cause de mon ecran a 
40 colonnes. 

Michel Lafon - 72 rue du Marechal 
Foch - 42300 Riorges 

Merci pour cet exemple : il est bon 
d'etre au courant de problemes de 
ce genre; cela evite que chacun 
perde du temps pour la meme rai- 
son. Voici d'ailleurs une autre expe- 
rience de "plantage", pour les ama- 
teurs d'Applesoft. 

Le programme de "Gestion de mas- 
ques" de Gerard Michel dans le nu- 
mero 7 m'a fort interesse. Mais je 
dois dire que j'ai eu des resultats 
varies lors de 1' impression des mas- 
ques : 

• avec une Centronics, il y avait un 
saut de ligne excedentaire a cha- 
que ligne; 

• avec une Silentype et une IDS, 
aucun probleme; 

• avec une Epson equipee d'une 
carte graphique, j'avais une ligne 
sur trois ? 

Guy Mathieu - 92 Vaucresson 

Pour notre part, nous avions teste le 
programme avec une Silentype, une 
Centronics 739 et une Oki 92. Le 
tout sans probleme... 

1 - II est peu pratique que les pages 
HGR de i'Appie soient situees en 
plein milieu de la RAM et obligent 
ainsi a situer un programme BASIC 
soit entierement en-dessous, soit en- 
tierement au-dessus des pages gra- 
phiques H.R. Y a-t-il un true pour 
placer un morceau de programme 
avant les pages HGR et un autre 
apres ? 

2 - Ceux qui ont la couleur sur leur 
Apple ont sans doute remarque que 
la definition est moins bonne qu'en 
N/B. Y a-t-il un moyen soft pour se 
passer de la couleur et recuperer la 
vraie definition ? J'ai une carte RVB 
Sonotec et un televiseur Thomson. 
Parfois, il y a des amorqages (etincel- 
les) au niveau de la THT du televi- 
seur et, par miracle, mon Apple ecrit 
en vert sur fond noir avec la vraie 
haute resolution ou en noir sur fond 
vert. RESET annule cet effet et fait 
revenir la couleur. Je suppose que 
des tensions incontrolees modifient 
1'etat de certaines memoires en re- 
montant les fils de la RVB. Comment 
provoquer cela par un moyen moins 
aleatoire ? 
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3 - Et voila un tuyau : a cause de la 
couleur, I'impression de certains gra- 
phes sur mon ecran n'est pas satisfai- 
sante. Des parties de trace sont 
bleues, d'autres vertes. On obtient de 
tres belles courbes bien homogenes 
en tragant en blanc (HCOLOR= 3) 
sur un ecran constitue d'une alter- 
nance de lignes horizontales vertes 
(HCOLOR= 1) et bleues (HCO- 
LOR= 2). 

Joel Delannoy - Quartier des Grees 
-04510 Aiglun - Mallemoisson 

1 - Faire un "trou" dans un pro- 
gramme 

Le programme SPLITTER, publie 
par Call APPLE et repris dans sa pu- 
blication "All About Applesoft" per- 
met de creer un "trou" a l'interieur 
d'un programme Applesoft, trou qui 
occupe un nombre donne de pages 
memoire, a definir par 1'utilisateur. 

Voici la recapitulation binaire de ce 
programme : 

Programme SPLITTER 

Recapitulation 



9400- 38 
9408- 43 
9410- 06 
9418- Bl 
9420- A5 
9428- C6 
9430- A5 
9438- B0 
9440- 6C 
9448- 41 
9450- OB 
9458- 41 
9460- 02 
9468- C8 
9470- C8 
9478- 40 
9480- 43 
9488- 38 
9490- 40 
9498- DO 
9400- 00 
94A8- 00 
94B0- C8 
94B8- IB 
94C0- 01 
94C8- 19 
94D0- 05 



05 B0 85 
05 OF 85 

09 00 91 
40 C6 40 

42 C9 FF 

43 C6 41 
07 85 08 
65 06 85 
05 67 85 
00 01 Bl 

00 88 Bl 
C8 DO EF 
DO 05 C8 
C8 C8 C8 
C8 C8 C8 
05 40 85 
C8 84 09 
65 06 91 
85 40 86 
11 Bl 40 

10 27 E8 

01 00 C8 
Bl 40 85 
09 94 85 

09 2F 85 
88 38 Fl 

10 30 02 



41 65 06 85 
40 85 42 00 

42 88 DO F9 
91 42 C6 42 
DO F2 05 41 
C5 07 10 E8 
C6 08 38 05 
B0 85 60 85 
40 05 68 85 
40 C5 08 F0 
40 85 40 86 
88 Bl 40 FO 
Bl 40 DO E9 
Bl 40 DO FB 
C8 09 0B 91 
42 05 41 85 
00 01 Bl 40 

40 88 flfl Bl 

41 CB A6 09 
DO Efl 4C 00 
03 64 00 OA 
Bl 40 85 19 
1A A9 fll 85 
1C AO 01 A2 
ID E6 ID A5 
IB 85 19 C8 
A2 00 Fl IB 



94D8- 85 1A 10 E9 8A DO E6 A5 
94E0- !9 88 18 71 IB 85 19 C8 
94E8- A5 1A 71 IB 85 1A 84 IE 
94F0- 05 ID 04 09 91 42 C8 09 
94F8- 00 91 42 E6 09 A4 IE C8 
9500- C8 98 C9 OA 30 BB 86 09 
9508- AO 01 4C 9A 94 
Mode d'emploi : 

• le sauvegarder sous le nom 
SPLITTER 

• faire BLOAD SPLITTER 

• POKE 6, nombre de pages du trou 

• POKE 7,page de debut du trou 

• CALL 37888 

Exemple : pour epargner la page 
HGR2, il faut faire POKE 6,32: 
POKE 7,64 : CALL 37888. 

Precautions a prendre : on ne peut 
BLOADer SPLITTER et faire le 
CALL depuis le programme Apple- 
soft concerne, mais il faut le faire au 
clavier ou depuis un fichier EXEC. II 
est fortement deconseille de relancer 
SPLITTER sur un programme deja 
"splitte", ainsi que d'essayer de creer 
un trou en dehors du programme ou 
dans un programme trop gros qui 
deborderait alors sur le DOS. Enfin, 
sauver puis recharger un programme 
"splitte" ne conserve pas le trou. 

2 - Carte RVB Sonotec 

Voici les POKEs a faire avec la carte 
RVB Sonotec : 

POKE -16144,0 : texte en blanc et 
graphiques en couleur. C'est le mode 
par defaut a l'allumage ou apres un 
RESET. 

POKE -16143,0: texte en vert et 
graphiques en couleur 
POKE -16142,0 : texte en blanc et 
graphiques en N/B 

POKE -16141,0 : texte en vert et 
graphiques en noir et vert. 

3 - Merci pour vos tuyaux sur les 
couleurs. Pour en savoir un peu plus, 
vous pouvez vous reporter a mon ar- 
ticle sur HAIFA (Pom's numero 5, 
pages 41 et 42) : la fonction SCRN 
haute resolution. 

Dans la "Programmation facilitee" 
(Pom's 5) de Denis Sureau que je 
remercie vivement pour son article 
original et agreable, I'instruction & 
INPUT A$, "LABEL" ne lit pas 
les espacements. Ainsi : 
$ INPUT A$, .... "QUI EST LA " 
donne a Texecution : "QUIES- 
TLA ?". 

B. Tambosco - 14 rue des Canadiens 
- St Didier des Bois - 
27370 Amfreville-la-Campagne 
Vous avez decouvert un bug qui 
s'avere encore plus dangereux que 
vous ne l'avez dit, car un oubli des 
guillemets finaux dans "LABEL" fait 
que l'amper-interpreteur affichera 



TOUS les octets du programme Ap- 
plesoft jusqu'aux premiers guillemets 
rencontres, d'ou du "garbage" a 
l'ecran. 

Le probleme vient du fait que le pro- 
gramme assembleur affiche la chatne 
caractere par caractere jusqu'au pro- 
chain guillemet, chaque caractere 
etant obtenu par la routine CHRGET 
($B1) qui justement "saute" les espa- 
ces. 

Je propose une modification utilisant 
les routines Applesoft STRTXT, 
STRPRT et CHRGOT. STRTXT 
($DE81) fabrique un descripteur de 
chatne pour la chaine pointee actuel- 
lement par le pointeur de pro- 
gramme TXTPTR ($B8,B9) et stocke 
ce descripteur en FACMO.LO 
($A0,A1). CHRGOT ($B7) lit le ca- 
ractere du programme pointe par 
TXTPTR. sans toutfifois incrementer 
TXTPTR comme CHRGET le fait. 

En conclusion, il faut remplacer les 
lignes 115 a 121 par : 

115 STRING SEC 

116 JSR $DE81 

117 JSR $DB3D 

118 RTSSTR JSR $B7 

Si vous n'avez pas d'assembleur, 
vous pouvez utiliser le patch suivant, 
pour la version 48K de la program- 
mation facilitee : 

93A3 : 38 20 81 DE20 3DDB 
93AA: EA EA EA EA EA EA EA 
93B2: 20B7 00 

Pour la version 32K, utiliser les 
adresses 53A3, 53AA et 53B2. 

Mon fils Loi'c (16 ans et demi) aime- 
rait rencontrer des utilisateurs d 'Ap- 
ple II pour parfaire ses connaissances 
et progresser ensemble. Y a-t-il un 
club dans le 20e (sinon le 12e, le 
lie ou le We) ou des abonnes a 
Pom's qui seraient interesses ? 

M. Lepechon - 94 rue de Buzenval - 
75020 Paris 

Nous invitons les lecteurs de Pom's 
interesses a repondre directement. 
Voici en outre une liste de clubs du 
voisinage : 

Computerland Paris-Est - 135 Bd. 

Voltaire-75011 - Tel 379.21.01 - 

Contacter M. Cung 

Ecole Professionnelle Superieure 

(EPS) - 45 rue des Petites Ecuries - 

75010 Paris - Tel 523.35.30 - 

Contacter Lionel Godard 

Club 702 - 9 rue de Rambouillet- 

75012 Paris - Tel 345.33.80 - 

Contacter Gilles Probst 

Lecteur recent de Pom's, je me per- 
mets de vous ecrire pour vous dire 
BRAVO; bravo pour une revue re- 
marquablement lisible pour le pro- 
grammer moyen que je suis, bravo 
pour les programmes originaux et in- 
teressants, bravo pour la qualite 
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compression et le panachage des dif- 
ferents langages. 

Une petite remarque cependant; je 
ne suis pas abonne et ne desire pas 
Fete. J'achete tous les numeros de 
Pom's au jour le jour et possede le 
recueil et tous les autres numeros. Je 
n'ai pourtant pas pu acheter les dis- 
quettes chez mon revendeur habi- 
tue! Pourquoi done ? 

J-M Mousseau - 36 rue de Gometz - 
91440 Bures s/Yvette- 

Tout d'abord, merci pour vos encou- 
ragements. De nombreux autres lec- 
teurs nous en envoient; nous profi- 
tons de 1' occasion pour les remercier 
meme temps que vous. Nous 
voulu des le debut de Pom"s 
dre les disquettes d'accompagne- 
ent a tres bas prix. Ou trouverez- 
vous ailleurs des disquettes pleines 
de programmes et vendues moins de 
FF TTC (prix sur abonnement) ? 



Le seul moyen de vendre a ce genre 
de prix est de pratiquer la vente di- 
recte. A titre indicatif, la disquette 
d'accompagnement du livre "Visicalc 
sur Apple" etait vendue par nous di- 
rectement a 75 FF TTC port 
compris. Elle est a present vendue 
dans les boutiques, distribute par les 
Editions du PSI, a un peu moins de 
200 FF. C'est d'ailleurs le prix du 
marche pour ce genre de produit. En 
effet, il faut incorporer le cout de 
l'emballage, la marge du diffuseur, 
celle de la boutique, ... Seriez-vous 
dispose a payer la disquette de 
Pom's 100 FF pour l'avoir dans les 
boutiques ? 

En reponse a la lettre d'Andre Ba- 
beanu dans le Courrier des Lecteurs 
du Pom's 7, il est exact que le char- 
gement rapide utilise ne copie que 
des secteurs enters de 256 octets. Si 
Von charge un programme en $300. 
cela ecrase done les vecteurs du 



DOS en $3D0 et du RESET en 
$3F2. II n'y a pas de parade autre 
que de reecrire le MENU. Le pro- 
gramme &BLOAD publie anterieure- 
ment, par contre, comporte un test 
de longueur destine a contourner cet 
obstacle. 

Quand au patch de la ROM LC, je 
pense qu'il serait interessant de mo- 
difier le DOS lui-meme et de ne pas 
modifier les buffers pour conserver le 
maximum de compatibility avec les 
autres programmes. De toute fagon, 
le MENU est destine a ne fonctionner 
que lors du boot, le programme 
choisi peut ensuite compter sur une 
configuration "normale", libre a lui 
de modifier ce que bon lui semble 
(vecteurs de RESET, d'en- 
trees/sorties, ...). 

Thierry Le Tallec - 69 rue Sauveur 
Tobelem - 13007 Marseille 



acances informatiques pour 
enfants 

amis du logiciel proposent des 
stages de micro-informatique pour les 
enfants de 12 a 14 ans. Les seances 
de travail alterneront avec les activi- 
tes de plein air (tennis, ping-pong, 
natation). Le materiel utilise est 
Apple II. Lieu : a 30 kms d' Angers. 

LOGAMI - Christian de Menthon - 9 
rue Las Cases - 75005 Paris - (1) 
1.74.07 

Pomme 

Le club Ma Pomme continue a orga- 
niser des soirees de travail autour 
d'un theme. Prochaines reunions de 
ce genre : Fichiers et bases de don- 
nees sur Apple II, lie et/// (15 juin), 
Applications musicales et vocales (20 
juillet) et Memoires de masse pour 
tous Apples (21 septembre). Les 
seances ont lieu a partir de 19 
heures au 110, avenue du General 
Leclerc a Paris (XIV). 



Courrier des clubs 




Ma Pomme - 6 rue Paul Sauniere - 
75016 Paris - Tel le soir (tard) : (1) 
558.05.78 

Microtel Club Monaco 

Notre Club se reunit un vendredi soir 
sur deux dans notre local provisoire, 
au Club des Sports et Loisirs, a 
l'adresse indiquee ci-dessous. 

Nous sommes equipes d'un Goupil II 
avec TV couleur, mais beaucoup de 
nos membres possedent des Apple II, 
qui constituent un centre d'interet 
priviligie de nos rencontres. Pour 
tous renseignements, contacter C. 
Perisi au (93) 50.68.56 

Microtel Club Monaco - 24, avenue 
Prince Pierre - 98000 Monaco 

Informatique - architecture 

Les prochaines journees de demons- 
tration organisees par notre club se- 



ront consacrees aux applications dis- 
ponibles pour les architectes. Elles 
auront lieu les 24 juin et 22 juillet. 
Pour tout renseignement, s'adresser 
a : 

Club informatique-architecture - 110 
avenue du General Leclerc - 75014 
Paris-Tel (1) 45.75.07 



Informatique "Populaire" 

Une publication mensuelle d'une 
vingtaine de pages est nee en de- 
cembre dernier. II s'agit d'lnformati- 
que "Populaire", bulletin de liaison 
des clubs populaires d' informatique, 
pour le moment implantes dans la 
region Nord et Pas-de-Calais. 

Ecrire a Helene Weiss - EDICO - 13 
rue E. Rostand - 62200 Boulogne 
s/Mer - Tel (21) 31.42.32 





OLIVETTI PRAXIS 




AVEC INTERFACE APPLE 




5400 F h.t. 






L'imprimante qui est aussi une machine d 
ecrire. 

Marguerites interchangeables. 

TOTALE FORMATION 






114, ovenue Charles-de-Gaulle 92200 Neuilly - Tel. 745.62.73. 
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mettez 
de la couleur 
dans votre vie 




2 50 F ttc '', 



Bon de commande 

a retourner sous pli affranchi 
aux Editions MEV 

49, rue Lamartine 
78000 Versailles 



Quantite 


Taille 


Prix total 




36/38 










Total 





Ci-joint mon reglement 




pom's 



Je desire recevoir : 

• les numeros de la revue Pom's 

au prix de 35 F le numero 



□ 4 D5 D6 D7 



□ 8 



les disquettes d'accompagnement des numeros 

□ 1 U2 D3 D4 D5 D6 
au prix de 50 F par disquette 



□ 7 □ 8 



la disquette HAIFA Source □ au prix de 50 F la disquette (cf. Pom's n° 5) 

le logiciel H-BASIC □ au prix de 150 F (cf. Pom's n° 8) 

(disponible fin juin 1983) 



recueil n° 1 de Pom's (n M 1 a 4) 

□ avec ses 3 disquettes au prix de 270 F 

□ sans disquette au prix de 120 F_ 



□ les 3 disquettes seules au prix de 150 F 



Je desire m'abonner pour 4 numeros a partir du n" 



□ sans disquette au prix de 120 F . 

□ avec disquettes au prix de 295 F. 



Montant 
TTC 



TOTAL : 

Envoyez ce bon de commande et votre reglement a : 
Editions MEV - 49, rue Lamartine - 78000 Versailles 

Norn 

Adresse 



Ces tarifs comprennent 1' envoi postal en France Metropolitaine, CEE et Suisse 

(voie aerienne exceptee) 
Pour envoi par avion : nous consulter 



MICRO-PERIPH 

ouvre les pontes de voire fljtCippkZ II 



Ouvert du mardi au samedi : 10 h - 12 h et 14 h ■ 18 h 
60, rue Ducouedic • 75014 PARIS (T6I. : 321.41.80) 




NOUVEAU 

RAMEX 128 K AVEC V-C EXPAND VERSION 80-2 (5 600 F T.T.C.) 

Si vous souhaitez uliliser votre VISICALC avec : 

• 136 K de memoire • chargement d'un tableau complel en 20 secondes 

• 80 colonnes sur I'ecran (logiciel compatible avec 4 differentes cartes 
80 colonnes) 

• Largeur de colonnes variable Indlvlduellement 

• Curseur programmable 

• Beaucoup d'autres ameliorations tres nombreuses 

(Ce logiciel qui est egalement compatible avec les cartes Saturn est dispo- 
nible separement (1 150 F T.T.C). La carte RAMEX 128 K est disponible 
aussi separement pour 4 600 F T.T.C. y compris le logiciel SOLIDOS.) 



NOUVEAU 

LECTEUR DE CODE 6ARRE (2 340 F T.T.C) 
GENERATEUR DE CODE BARRE (2 340 F T.T.C.) 

CARTE RVB (1 500 F T.T.C.) avec systeme d'amelioration d'anomalies cou- 
leur. 

CARTE 80 COLONNES (1 900 F T.T.C.) : cette carte fonctionne avec notre 
carte RVB. 



NOUVEAU 

ACCELERATOR II (3 950 F T.T.C.) 

Cette carte, fabriquee par Saturn Systems, est equipee d'un mlcroproces- 
seur 6502 C qui tourne a 3,58 MHz et de 64 K de RAM. Cette augmentation 
de vitesse de 358 % se traduit par une augmentation de rapidite d'explolta- 
tion de tous les programmes. La carte est directement compatible avec 
tous les langages et programmes (Applesoft, Integer, Blnaire, Pascal, For- 
tran 77, Forth alnsi que tous les progiciels tels que Vlsicalc, DB Master, 
etc). A la commande, specifier version Apple II ou Apple lie. 

^NOUVEAU 

PROG RAMM EUR D'EPROMS (1 360 F T.T.C). La carte se branche dans 
slot de I'Apple II et permet de programmer directement les EPROMS (2758, 
2716, 2732 et 2764). Un logiciel de gestlon du programmeur se trouve sur la 
carte de memoire morte. Une carte existe egalement pour adapter les 
^PROMS programmes sur I'Apple II (630 F T.T.C). 

'EXTENSIONS DE MEMOIRE 

U-RAM 32K (1 450 F T.T.C), U-RAM 64K (2 590 F T.T.C), U-RAM 128K 
(4 250 F T.T.C.) (Photos 7 et 4). VERSA RAM emulateur de disque (690 F 
LT.T.C). 



LES CARTES « PILOTS » 

U-TERM (1 490 F T.T.C.) 

Cette carte qui vous donne 80 colonnes sur I'ecran vous permet d'avoir 
deux jeux de caracteres a la fois qui sont co-residents dans la memoire 
vlve et la memoire morte de la carte. Par exemple, les caracteres francais 
majuscules et minuscules ainsi que les caracteres anglo-saxons. Elle a 
une tres grande gamme de compatibility : APPLESOFT, PASCAL, CP/M, 
APPLEWRITER II, etc. (Photo 2). 

U-Z80(1 150 F T.T.C): son point fort est la Vitesse: 4 MHz. Compatible avec 
tous les logiclels CP/M ou de 280 (Photo 1). 

U-RAM16 (890 F T.T.C.) : c'est une carte langage entierement compatible 
avec INTEGER BASIC, PASCAL, VISICALC, etc. Pourquoi payer plus Cher? 
U-S232 (990 F T.T.C) : une carte de serle, Vitesse variable entre 75 et 
19200 bauds. Cette carte contlent son propre logiciel de handshake, ce qui 
permet de (aire fonctionner une imprimante a sa vitesse optimale. Compa- 
tible avec le logiciel de communication VISITERM (Photo 9). 



DIVERS POUR L' APPLE II 

JOYSTICK TRACKBALL (880 F T.T.C) : une grande boule pour diriger vos 
navires spatiaux. 

CARTE HORLOGE (770 F T.T.C.) : au quartz avec pile et logiciel agenda. 
ROBOCOM BITSTICK (3 397 F T.T.C.) : un systeme tres sophlstlque de des- 
sin graphlque. 

D BASE II (5 200 F T.T.C.) : systeme de base de donnees relatlonnel (Z 80). 
JOYSTICK KRAFT (510 F T.T.C.) et JOYSTICK TG PRODUCTS (670 F T.T.C.) : 
fabriques aux Etats-Unis, lis sont d'excellentes quallte et flabillte. 
LECTEURS DE DISQUES : toutes les configurations possibles entre 143 K 
octets et 2 M octets, entierement compatibles avec I'Apple II. 
CCS carte eynchrone (2 120 F T.T.C.) : pour dialoguer avec un IBM. 
DB MASTER (2 050 F T.T.C.) : tres puissant. Base de donnees. 
DATA FACTORY (3 172 F T.T.C.) : peut-etre la plus puissante des bases de 
donnees. 

ASCII EXPRESS PROFESSIONAL (1 378 F T.T.C.) : permet denvoyer 
n'lmporte quel fichier en DOS par modem. 

MUMATH/MUSIMP Z80 (2 542 F T.T.C.) : tres puissant logiciel mathemati- 
que. 

VENTILATEUR (750 F T.T.C.) : se branche a gauche de I'Apple II. Aliments 
I'Apple II. 
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fCARTES SCIENTIFIQUES 

U-A/D (4 530 F T.T.C.) : carte analogue digitale haute vitesse, 12 bits, 
16 gammes (Photo 6). 

Carte A/D 8 bits (1 400 F T.T.C), 1 gamme (470 F T.T.C) 
Carte D/A 8 bits (1 889 F T.T.C), 1 gamme (450 F T.T.C.) 
U-BCD (1 050 F T.T.C) (Photo 8) 

U-DT (1 350 F T.T.C), 32 lignes entree-sortie avec temporisateur et butter 
U-TIM (1 090 F T.T.C), temporisateur 

U-2 PORT 1 800 F T.T.C.) : 2 portes RS 232 sur la meme carte extensible 
lusqu'a 8 portes(Photo 5) 

THE MILL 6809 (NC) : coprocesseurs a haute vitesse et de multlprogram- 
mation 

Carte 68000 (NC) 16 bits + 32 bits Interne (Photo 3). 
Nous avons plusieurs autres cartes qui ne sont pas mentionnees ici; 
krenseignez-vous 

TENSEMBLES D'EXPANSION VISICALC 

V-C 50K (3 560 F T.T.C.) : 1 carte 80 colonnes, V-C expand logiciel, U-RAM 
32K 

V-C 82K (4580 F T.T.C.) : 1 carte 80 colonnes, V-C expand logiciel, U-RAM 
64K 

V-C 145K (6 360 F T.T.C.) : 1 carle 80 colonnes, V-C expand logiciel. U-RAM 
128K 

V-C consolldator (400 F T.T.C.) : pour consolider plusieurs tableaux de VISI- 
CALC 

V-C super expand (700 F T.T.C.) : version 40 colonnes avec sauvegarde sur 
diskette en 20 secondes (le RAMEX 128K est necessaire) 
V-C super expand 80 (900 F T.T.C) : version 80 colonnes compatible avec 
artes omnlvision 80, Videx et U-Term (le RAMEX 128K est necessaire) 



10UVEAU 

EPSON FX 80 (5 800 F T.T.C.) • PROMOTION 
Vitesse : 160 c.p.s., 80, 40, 137, 68, 96 ou 48 caracteres par llgne, 
friction/traction, 9 formats graphlques, 9 |eux de caracteres, RAM avec 
logiciel ouvert pour generer votre propre )eu de caracteres, matrlce de 11 
fois 9, espacement proportionnel, mode silencleux. 

Si vous ne voyez pas ce que vous cherchez ou si vous desirez de plus 
amples renseignements, telephonez a MICRO-PERIPH (321.41.80). SI vous 
ne pouvez vous deplacer, telephonez-nous pour connaitre le revendeur le 
plus proche de chez vous ou completez le bon de commande cl-dessous. 
ROUTES NOS CARTES SONT GARANTIES 12 MOIS 



BON DE COMMANDE 

A decouper et envoyer a : 

MICRO-PERIPH, 60, rue Ducouedic - 75014 Paris - Tel. : 321.41.80 
Je desire recevoir rapidement, sous pli recommande : 



OUANTITE 



DESIGNATION 



TOTAL T.T.C. 



Total 

Frais de port recommmande 

Ci-iolnt un cheque /C.C.P. de F : 



15,00 F 



JCR,DES MICRO-ORDINATEURS 

PROFESSIONNEL ET GRAND PUBLIC. 



f|cipplG computer 





APPLE II E 

Entierement compatible avec I' Apple II 
il possede un clavier etendu Azerty/ 
Qwerty et une memoire de 64 K oct. 
d'origine. 

Deja de nombreux logiciels ei exten- 
sions disponibles sur ce nouvel ordi- 
nate ur. 

APPLE III 

L'outil professionnel par excellence. 
128 Ko ou 256 Ko. Unite de disque 
incorporee. Sortie RS 232. Nombreux 
interfaces disponibles. Adjonction 
possible d'un disque dur de 5 mega. 
Profile. Ecran vert haute resolution 
antireflets. Clavier Azerty - Qwerty. 

MONITEURS VIDEO 

Prince 12" N/B 1 050 F 

Prince 12" Vert 1 400 F 

Prince 12" Ambre 1 600 F 

CIAEGI 12" Vert 1 720 F 

Philips 12" Ambre 1 720 F 

Cabel 12" CouleurRVB .... 3 500 F 



Cartes pour Apple II : 

U-RAM 16 K 890 F 

U-TIM carte horloge 1 090 F 

U-TERM carte 80 col 1 490 F 

U-Z80 carte CP/M 1 150 F 

CP/M pour U-Z80 750 F 

Microbulfer EPSON 16 K. ... 2 450 F 

Microbuffer ext. 64 K 3 300 F 

Clavier numerique 950 F 

Carte chat Mauve 1 400 F 

Carte. EVE pour Apple II E 2 900 F 
Carte 80 col. TEXT A 11 E . . . 990 F 
Carte 80 col. + 64 K A E 2 300 F 

Poign6es de contr3le 1 85 F 

Joystick 380F 

Carte Superterm 80 col 2 590 F 

Ventilateur Super Fan 850 F 

Carte memoire 64 K 2 590 F 

Carte memoire 128 K 3 950 F 

Produits consommables : 

Disq. SF/DD 3M les 10 210 F 

Disq. DD/DD 3M les 10 452 F 

K 7 vierges les 10 70 F 

Papier listing 80 col 290 F 

Papier listing 132 col 350 F 



VISICORP 

Une serie de logiciels d'aide a la deci- 
sion : Visicalc - Visiplot - Visidex - Visi- 
file. 



ORIC 1 

Un ordinateur pour tous de 16 a 48 K 
oct. RAM. 

16 couleurs en graphisme haute resolu- 
tion. 

Synthetiseur de son et interface paral- 
lele incorpores d'origine. 

Version 48 K. 






— Catalogue giatuit sur demands — CrediJ 4-36 mois — Leasing 36-48 mois — detnxe a l'exportation. 
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